Renkli hücre bulma

[muratozmenler]

Set s1 = Sheets("bilgi")
s1.Select
sat = [a65536].End(3).Row
For i = 2 To sat
If s1.Cells(i, 1).Interior.ColorIndex = 3 Then
Info
End If
If s1.Cells(i, 1).Interior.ColorIndex <> 3 Then MsgBox "ARAÇLARIN ÖDEMESİ YOKTUR !", vbInformation
Application.Visible = False
UserForm1.Show
End If
Next

KODU NASIL DÜZELTEBİLİRİM..