Complie error???

[Anthony G.]

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

 

[Damon Ostrander]

Hi Anthony,

The problem appears to be nothing more than unbalanced parentheses. The statement needs another right paren before the "Is".