If target.count 1 then exit sub
if Target.column = 13 and VarType(target.value) = vbString then _
call Copy DoIt (Target )
DoIt same as another I have but does not copy & paste? Must have to do with
useing text? Heres DoIt
ublic Sub CopyDoIt(ByVal Target As Range)
Dim wksSummary As Worksheet
Dim rngPaste As Range
Set wksSummary = Sheets("Announcer")
Set rngPaste = wksSummary.Cells(65536, "A").End(xlUp).Offset(1, 0)
Application.EnableEvents = False
Set rngPaste = rngPaste.Offset(0, 0)
Range(Target.Offset(0, -8), Target.Offset(0, -4)).Copy _
Destination:=rngPaste
rngPaste.Offset(0, 5) = Target
Application.EnableEvents = True
End Sub

End result is to have Announcer wksheet have Cells from (row) in
Columns A:D:E:F:G:H
1 4 5 6 7 8
Hope I make sense
Thanks
--
Regards,
Tom Ogilvy