Blinking TEXT - Help needed

N

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.

Upon receving comments from the group I adjusted the code to reflect
the specific workbook.

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?


Thanks, Naeem
 
T

Tom Ogilvy

try putting the .xls on the end of the file name

Workbooks("DailyBalance.xls").Sheets("Main").Range("Blink").
 
N

naeem.mahmood

try putting the .xls on the end of the file name

Workbooks("DailyBalance.xls").Sheets("Main").Range("Blink").

--
Regards,
Tom Ogilvy
























- Show quoted text -

Hurray - it worked.....Thanks a lot

Naeem
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Blinking cells 6
VBA code does not work 7
Help Needed - Blinking TEXT 2
Run Error while protected 1
Excel Blinking TEXT 0
Protection in VBA. 2
URGENT HELP ON BLINKING/FLASHING CELL 5
Code Error 3

Top