I have a Worksheet Change code, below being the start, however when executing the last line, excel shuts down/closes. 'If Not Intersect(Target, MyRange) is Nothing Then'
Can anyone see anything wrong with the below code?
Thanks in advance.
Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRange As Range Set MyRange = Range("B14:B1048576") Application.EnableEvents = False Application.Calculation = xlCalculationManual Application.ScreenUpdating = False If Target.Cells.Count > 1 Then GoTo exitHandler If Not Intersect(Target, MyRange) Is Nothing Then