If Not Intersect(Target, Range("A9:A21")) Is Nothing Then
'first employee
If Target.Address = "A9" Then
If Target = "" Then
Application.EnableEvents = False
Cells(Target.Row, Target.Column + 1).Value = ""
Cells(Target.Row, Target.Column + 2).Value = ""
Cells(Target.Row, Target.Column + 3).Value = ""
Cells(Target.Row, Target.Column + 4).Value = ""
Cells(Target.Row, Target.Column + 5).Value = ""
Cells(Target.Row, Target.Column + 6).Value = ""
Cells(Target.Row, Target.Column + 7).Value = ""
End If
'more code will follow
Application.EnableEvents = True
End If
End If
|