Help Needed - Blinking TEXT

[naeem.mahmood]

Hello

I found the following blinking text code via this forum.


------------------------------------------------
' First, you need to set up a procedure to cause the text to
alternate
between white and black.
' Put the following code in a regular code module:
Private RunWhen As Double


Sub StartBlink()
If Range("Blink").Font.ColorIndex = 2 Then
Range("Blink").Font.ColorIndex = xlColorIndexAutomatic
Else
Range("Blink").Font.ColorIndex = 2
End If
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink", , True
End Sub


Sub StopBlink()
Range("Blink").Font.ColorIndex = xlColorIndexAutomatic
Application.OnTime RunWhen, "StartBlink", , False
End Sub


' In both these procedures, change the reference to A1 to the cell
that should blink.


' When the workbook is closed, you need to cancel OnTime event
triggers,
' so put the following code in the ThisWorkbook code module.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopBlink
End Sub


' You need to initiate this procedure when the workbook opens, so put
the following code
' in the ThisWorkbook code module:
Private Sub Workbook_Open()
StartBlink
End Sub
---------------------------------------------------------


Its working fine as long as no other excel file is not open. As soon
as I open anything else following error open.


"Run-time erroe '1004': Method 'Range' of object'_Global failed."


Could anyone please help as I want to use this code while other files
are open.


Thanks,


Naeem

 

[greyflame]

You probably just need to explicitly reference the workbook and sheet
containing the "blink" range.

ie

workbooks("bookname").sheets("sheetname").Range("Blink").Font.ColorIndex

 

[naeem.mahmood]

Thanks for the reply.

I tried putting that code in as follows.
----------------------------------------------------------------------
Sub StartBlink()
If
Workbooks("DailyBalance").Sheets("Main").Range("Blink").Font.ColorIndex
= 2 Then

Workbooks("DailyBalance").Sheets("Main").Range("Blink").Font.ColorIndex
= xlColorIndexAutomatic
Else

Workbooks("DailyBalance").Sheets("Main").Range("Blink").Font.ColorIndex
= 2
End If
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink", , True
End Sub
---------------------------------------------------------------------

But when I re-open the file following error comes up.

"Subscript Out of range"

Any HELP?