Code Error
 

I have this code (below) and when I run from Macro a window appears and say
(file could not be found. Check the spelling of the file name, and verify
that the file location is correct). How can I solve this problem.

Thanks

This is the code:

Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("AAA").Range("AG3").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink3", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("AAA").Range("AG3").Font.C olorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink3", ,
False
End Sub

Code Error
 

hi
your main sub is startblink but your ontime is trying to run startblink3.
post startblink3 sub.

Regards
FSt1

"MAX" wrote:

I have this code (below) and when I run from Macro a window appears and say
(file could not be found. Check the spelling of the file name, and verify
that the file location is correct). How can I solve this problem.

Thanks

This is the code:

Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("AAA").Range("AG3").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink3", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("AAA").Range("AG3").Font.C olorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink3", ,
False
End Sub

Code Error
 

You should not need the workbook(file) name the procedure is in the same
workbook that calls it.

Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("AAA").Range("AG3").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink3", , True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("AAA").Range("AG3").Font.C olorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "StartBlink3", , False
End Sub


"MAX" wrote in message
...
I have this code (below) and when I run from Macro a window appears and say
(file could not be found. Check the spelling of the file name, and verify
that the file location is correct). How can I solve this problem.

Thanks

This is the code:

Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("AAA").Range("AG3").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink3",
,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("AAA").Range("AG3").Font.C olorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink3",
,
False
End Sub

Code Error
 

It was Sub StartBlink3, I had a mistake.

"FSt1" wrote:

hi
your main sub is startblink but your ontime is trying to run startblink3.
post startblink3 sub.

Regards
FSt1

"MAX" wrote:

I have this code (below) and when I run from Macro a window appears and say
(file could not be found. Check the spelling of the file name, and verify
that the file location is correct). How can I solve this problem.

Thanks

This is the code:

Public RunWhen As Double

Sub StartBlink()
With ThisWorkbook.Worksheets("AAA").Range("AG3").Font
If .ColorIndex = 3 Then ' Red Text
.ColorIndex = 2 ' White Text
Else
.ColorIndex = 3 ' Red Text
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink3", ,
True
End Sub

Sub StopBlink()
ThisWorkbook.Worksheets("AAA").Range("AG3").Font.C olorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink3", ,
False
End Sub