BlinkerCode anpassen

Sub Sleep Lib "kernel32" _
(ByVal dwMilliseconds As Long)

Sub Blinker()
Dim x As Integer
For x = 1 To 10
Cells(2, 5).Interior.ColorIndex = 3
Sleep 500
Cells(2, 5).Interior.ColorIndex = xlNone
Sleep 500
Next x
End Sub


kann man den so umschreiben das jede Zelle in einem Bereich von z.B. A1:A200

blinken die Gelb sind. Hab schon in der Recherche geguckt und die meisten 

Lösungen beziehen sich auf Hajos Lösung, die sind mir viel zu kompliziert da hab 

ich einfach viel zu wenig Erfahrung um das für meine Datei anzupassen. Schon mal 

ein Danke für Eure Hilfe

Gruß, Guesa