Anthony G.
Active Member
- Joined
- Mar 24, 2002
- Messages
- 465
Hello to All!
I'm receiving a compiling error when I attempt to run the following code:
Private Sub Worksheet_Change(ByVal East_Update As Range)
Sheets("East_Forecast").Unprotect Password:="ESF"
If Intersect(East_Update, Union([L12:L207],[S12:S207]) Is Nothing Then Exit Sub
With Update
.Font.Bold = True
.Font.Italic = True
With .Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
End With
Sheets("East_Forecast").Protect Password:="ESF"
End Sub
On the "If Intersect" line, the debugger highlights "Then".
Any suggestions?
Thanks,
Anthony
I'm receiving a compiling error when I attempt to run the following code:
Private Sub Worksheet_Change(ByVal East_Update As Range)
Sheets("East_Forecast").Unprotect Password:="ESF"
If Intersect(East_Update, Union([L12:L207],[S12:S207]) Is Nothing Then Exit Sub
With Update
.Font.Bold = True
.Font.Italic = True
With .Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
End With
Sheets("East_Forecast").Protect Password:="ESF"
End Sub
On the "If Intersect" line, the debugger highlights "Then".
Any suggestions?
Thanks,
Anthony