I want cells B1 and F1 flashing, and I am using this code (below). When I run
the macro, it is giving me a compile error ( Block If without End If).
Any help please?

This is the code:

Option Explicit
Dim nextSecond

Sub startFlashing()
flashCell
End Sub

Sub stopFlashing()
On Error Resume Next
Application.OnTime nextSecond, "flashCell", , False
End Sub

Sub flashCell()
nextSecond = Now + TimeValue("00:00:01")
Application.OnTime nextSecond, "flashCell"


If Range("B1").Interior.ColorIndex = 7 Then
Sheet1.Range("B1").Interior.ColorIndex = 41
Sheet1.Range("B1").Value = "Light Blue"


ElseIf Range("B1").Interior.ColorIndex = 41 Then
Sheet1.Range("B1").Interior.ColorIndex = 7
Sheet1.Range("B1").Value = "Pink"



If Range("F1").Interior.ColorIndex = 7 Then
Sheet1.Range("F1").Interior.ColorIndex = 41
Sheet1.Range("F1").Value = "Light Blue"


ElseIf Range("F1").Interior.ColorIndex = 41 Then
Sheet1.Range("F1").Interior.ColorIndex = 7
Sheet1.Range("F1").Value = "Pink"

End If
End Sub


Thanks a lot.

You are missing and End If after your firs If....ElseIf... statements.


"MAX" <(E-Mail Removed)> wrote in message
news:05EFF7F6-4862-4C8F-B9F0-(E-Mail Removed)...
>I want cells B1 and F1 flashing, and I am using this code (below). When I
>run
> the macro, it is giving me a compile error ( Block If without End If).
> Any help please?
>
> This is the code:
>
> Option Explicit
> Dim nextSecond
>
> Sub startFlashing()
> flashCell
> End Sub
>
> Sub stopFlashing()
> On Error Resume Next
> Application.OnTime nextSecond, "flashCell", , False
> End Sub
>
> Sub flashCell()
> nextSecond = Now + TimeValue("00:00:01")
> Application.OnTime nextSecond, "flashCell"
>
>
> If Range("B1").Interior.ColorIndex = 7 Then
> Sheet1.Range("B1").Interior.ColorIndex = 41
> Sheet1.Range("B1").Value = "Light Blue"
>
>
> ElseIf Range("B1").Interior.ColorIndex = 41 Then
> Sheet1.Range("B1").Interior.ColorIndex = 7
> Sheet1.Range("B1").Value = "Pink"
>
>
>
> If Range("F1").Interior.ColorIndex = 7 Then
> Sheet1.Range("F1").Interior.ColorIndex = 41
> Sheet1.Range("F1").Value = "Light Blue"
>
>
> ElseIf Range("F1").Interior.ColorIndex = 41 Then
> Sheet1.Range("F1").Interior.ColorIndex = 7
> Sheet1.Range("F1").Value = "Pink"
>
> End If
> End Sub
>
>
> Thanks a lot.

Please read the opening paragraph and BE SURE TO READ the last item in the
Summary at the bottom of the page...

http://www.cpearson.com/excel/BlinkingText.aspx

--
Rick (MVP - Excel)


"MAX" <(E-Mail Removed)> wrote in message
news:05EFF7F6-4862-4C8F-B9F0-(E-Mail Removed)...
>I want cells B1 and F1 flashing, and I am using this code (below). When I
>run
> the macro, it is giving me a compile error ( Block If without End If).
> Any help please?
>
> This is the code:
>
> Option Explicit
> Dim nextSecond
>
> Sub startFlashing()
> flashCell
> End Sub
>
> Sub stopFlashing()
> On Error Resume Next
> Application.OnTime nextSecond, "flashCell", , False
> End Sub
>
> Sub flashCell()
> nextSecond = Now + TimeValue("00:00:01")
> Application.OnTime nextSecond, "flashCell"
>
>
> If Range("B1").Interior.ColorIndex = 7 Then
> Sheet1.Range("B1").Interior.ColorIndex = 41
> Sheet1.Range("B1").Value = "Light Blue"
>
>
> ElseIf Range("B1").Interior.ColorIndex = 41 Then
> Sheet1.Range("B1").Interior.ColorIndex = 7
> Sheet1.Range("B1").Value = "Pink"
>
>
>
> If Range("F1").Interior.ColorIndex = 7 Then
> Sheet1.Range("F1").Interior.ColorIndex = 41
> Sheet1.Range("F1").Value = "Light Blue"
>
>
> ElseIf Range("F1").Interior.ColorIndex = 41 Then
> Sheet1.Range("F1").Interior.ColorIndex = 7
> Sheet1.Range("F1").Value = "Pink"
>
> End If
> End Sub
>
>
> Thanks a lot.