Hi,
I want to run a macro continually on the active sheet. The active sheet would have been created previously by a different macro, so I'm unable to put the macro within the sheet itself. The Macro below works as expected when placed within a given sheet, but not when I move it to a module.
Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range("E:E")) Is Nothing Then
Application.ScreenUpdating = False
If Target.Value = "Bypass" Then
Target.Offset(0, 1) = "N/A"
ElseIf Target.Value = "Jackpot" Then
Target.Offset(0, -1) = "N/A"
Target.Offset(0, 1) = "N/A"
ElseIf Target.Value = "Future" Then
Target.Offset(0, -3) = "N/A"
Target.Offset(0, -2) = "N/A"
Target.Offset(0, -1) = "N/A"
Target.Offset(0, 1) = "N/A"
Target.Offset(0, 2) = "N/A"
End If
Application.ScreenUpdating = True
End If
End Sub
Bookmarks