Posts by bhaskarkunji

If target.Count > 1 Then Exit Sub 


If Not Intersect(target, Range("O:O")) Is Nothing Then 
    Application.ScreenUpdating = False 
    
    If target.Value = "D. DUTY" Or target.Value = "SPM DUTY" Then 
        Application.EnableEvents = False 
        Call CopyDownRows 
        Application.EnableEvents = True 
        Application.ScreenUpdating = True 
    Else
        Exit Sub 
    End If 
End If

If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("O:O")) Is Nothing Then
Application.ScreenUpdating = False
If Not Target.Value = "D. DUTY" Then
Exit Sub
Else
Application.EnableEvents = False
Call CopyDownRows
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End If