Private Sub Worksheet_Change(ByVal Target As Range)
Dim BookMark As Range
Dim Condition As String
Condition = "Dennis"
Set BookMark = Range("E1")
With Application
.EnableEvents = False
.DisplayAlerts = False
End If
If [A1] = Condition Then
BookMark.Select
Selection.Copy
[A1].PasteSpecial Paste:=xlPasteFormats
End If
With Application
.DisplayAlerts = True
.CutCopyMode = True
.EnableEvents = True
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim BookMark As Range
Dim Condition As String
On Error Resume Next
Condition = "Dennis"
Set BookMark = Range("E1")
If [A1] = Condition Then BookMark.Select
End Sub
thanks lot. have a good day