Script Out of range error

[Krishnab4u]

Dear All,
I want a particular cell to blink until the value set to today's date.
following is the code used.

Option Explicit
Public RunWhen As Double
 
Sub StartBlink()
[U][I][B]With Worksheets("Summary")[/B][/I][/U]
.EnableOutlining = True
.Protect Password:="isuzu", _
Contents:=True, UserInterfaceOnly:=True
End With
   If Worksheets("Summary").Range("X2:AA2").Interior.ColorIndex = 3 Then
      Worksheets("Summary").Range("X2:AA2").Interior.ColorIndex = 4
    Else
        Worksheets("Summary").Range("X2:AA2").Interior.ColorIndex = 3
    End If
    RunWhen = Now + TimeSerial(0, 0, 2)
    Application.OnTime RunWhen, "StartBlink", , True
End Sub
 
Sub StopBlink()
On Error Resume Next
 Worksheets("Summary").Range("X2:AA2").Interior.ColorIndex = 30
 Worksheets("Summary").Range("X2:AA2").Interior.Pattern = xlPatternLinearGradient
 Application.OnTime RunWhen, "StartBlink", , False
End Sub

while the cell is blinking if i try to "Alt Tab" to see another workbook i get the error as "Run time error 9; Script out of range" and highlights line With Worksheets("Summary") in the above code (font bold and italised).

Please help.

 

[shg]

It means there is no worksheet named Summary in the active workbook.

 

[Krishnab4u]

Yes, there is no worksheet in the active workbook (which i just see by Alt Tab). However, the workbook which has the code running is very much having sheet called summary.

 

[shg]

With ThisWorkbook.Worksheets("Summary")