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("Bl ink").Font.ColorIndex
= 2 Then


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


Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").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

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

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

--
Regards,
Tom Ogilvy

" wrote:

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("Bl ink").Font.ColorIndex
= 2 Then


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


Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").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

On Apr 3, 1:28 pm, Tom Ogilvy
wrote:
try putting the .xls on the end of the file name

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

--
Regards,
Tom Ogilvy



" wrote:
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("Bl ink").Font.ColorIndex
= 2 Then

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

Workbooks("DailyBalance").Sheets("Main").Range("Bl ink").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- Hide quoted text -

- Show quoted text -

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

Naeem