[Solved] Specify current cell in macro

[jainagirl]

Hello, all:

Is there a way to edit this macro so it refers to the current cell at cursor position, rather than cell D2109?

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

Thanks in advance

[Zizi64]

https://ask.libreoffice.org/t/access-cu ... ed/17325/2