Please help me! Urgent!
Cant seems to be able to debug this error occur.
Thanks in advance!
Code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim todaydatetodaydate = DateIf Not Intersect(ActiveCell, Range("D2")) Is Nothing ThenApplication.ScreenUpdating = FalseSheets("SG30 Intransit Report").ActivateWith Sheet1.AutoFilterMode = False.Range("A1:N1").AutoFilter.Range("A1:N1").AutoFilter Field:=11, Criteria1:="<>".Range("A1:N1").AutoFilter Field:=12, Criteria1:="=" & CStr(todaydate), Operator:=xlAnd.Range("A1:N1").AutoFilter Field:=2, Criteria1:="2300".Range("A1:N1").AutoFilter Field:=14, Criteria1:="<2"End WithApplication.ScreenUpdating = TrueEnd IfIf Not Intersect(ActiveCell, Range("D3")) Is Nothing ThenApplication.ScreenUpdating = FalseSheets("SG30 Intransit Report").ActivateWith Sheet1.AutoFilterMode = False.Range("A1:N1").AutoFilter.Range("A1:N1").AutoFilter Field:=11, Criteria1:="<>".Range("A1:N1").AutoFilter Field:=12, Criteria1:="=" & CStr(todaydate), Operator:=xlAnd.Range("A1:N1").AutoFilter Field:=2, Criteria1:="2310".Range("A1:N1").AutoFilter Field:=14, Criteria1:="<2"End WithApplication.ScreenUpdating = TrueEnd IfEnd Sub