[Solved] Make multiple cells blink

[jainagirl]

I'm using the following macro that I got some time ago from a OO or LO forum:

Sub Blink_It
oSheet = ThisComponent.Sheets(0)
oCell = oSheet.getCellRangeByName("H2529")
Do While True
ocell.CellBackColor = RGB(255,255,255)
'White
Wait 1000
'wait 1000 milliseconds
ocell.CellBackColor = RGB(255,255,51)
'Yellow
Wait 1000
'wait 1000 milliseconds
Loop
End Sub

The problem is, I also want cell H2531 to blink as well. Any suggestions? Thanks in advance.

[Alex1]

I don't know if this is the easiest way, but it should work:

Code: Select all

Sub Blink_It
oSheet = ThisComponent.Sheets(0)
oCell = oSheet.getCellRangeByName("H2529")
oCell2 = oSheet.getCellRangeByName("H2531")
Do While True
ocell.CellBackColor = RGB(255,255,255)
ocell2.CellBackColor = RGB(255,255,255)
'White
Wait 1000
'wait 1000 milliseconds
ocell.CellBackColor = RGB(255,255,51)
ocell2.CellBackColor = RGB(255,255,51)
'Yellow
Wait 1000
'wait 1000 milliseconds
Loop
End Sub

[jainagirl]

Works like a charm! Such a simple solution! Thanks so much!