Was ist hier falsch? - eine Zelle suchen in Spalte

Private Sub CommandButton2_Click()
Dim Wks1 As Worksheet, Wks2 As Worksheet, Found As Object
Set Wks1 = Sheets("System Modul")
Set Wks2 = Sheets("Daten")
If Not IsEmpty(Wks1.Cells(9, 9)) Then
Set Found = Wks2.Columns(25).Find(Wks1.Cells(9, 9), LookIn:=xlValues, LookAt:=xlWhole)
If Found Is Nothing Then
Range("n33").Select
ActiveSheet.Pictures.Insert("C:\Users\XXX\Desktop\Modul App\System Modul notOK.png"). _
Select
Else
Range("n33").Select
ActiveSheet.Pictures.Insert("C:\Users\XXX\Desktop\Modul App\System Modul OK.png"). _
Select
End If
End If
End Sub