VBA Code to execute specific worksheet

[abelee]

Hi, I am a newbie in VBA codings. I have tried to flashing a cell in sheet2 (i have 5 sheets in the workbook/file) by pasting a ready made vba code into Thisworkbook as follows:

'Put in “ThisWorkbook”window
Private Sub Workbook_Open()
StarBlink
End Sub

However, all the cells (sheet2 and "c5" assigned in module1) in all sheets are flashing. Can some help and provide me a correct code to execute the flashing only on sheet2? Thanks.

 

[PeteWright]

Without knowing your code it's hard to tell.

Maybe "Worksheet_Activate" on "Sheet2"?

 

[abelee]

Without knowing your code it's hard to tell.

Maybe "Worksheet_Activate" on "Sheet2"?

dear PeteWright, below is the full code inserted in module for sheet2;

'Start blinking
Sub StarBlink()
Dim xCell As Range
Dim xTime As Variant
Set xCell = Range("c5")
With ThisWorkbook.Worksheets("SHEET2").Range("c5").Font
If xCell.Font.Color = vbRed Then
xCell.Font.Color = vbWhite
Else
xCell.Font.Color = vbRed
End If
End With
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "" & ThisWorkbook.Name & "!StarBlink", , True
End Sub
'Stop blinking
Sub StopBlink()
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime EarliestTime:=xTime, Procedure:="" & ThisWorkbook.Name & "!StarBlink", Schedule:=False
End Sub

thanks in advance

 

[PeteWright]

Application.OnTime xTime, "" & ThisWorkbook.Name & "!StarBlink", , True

What exactly is "!StarBlink" ?

 

[SanjayGMusafir]

'Put in “ThisWorkbook”window
Private Sub Workbook_Open()
StarBlink
End Sub

I believe, Problem is here -

To run it on only worksheet 2, insert it on sheet 2 than This workbook

Private Sub Worksheet_Activate()
StarBlink
End Sub

I borrowed information from this link - Running a Macro when a Worksheet is Activated in Excel.