hi
you code is writen to transfer values only. i would suggest you use the copy
command....
If Not Intersect(Target, Range("b4:b7")) Is Nothing Then
Worksheets("DuplicateSheet").Range("b11:b14").Copy Destination:= _
Worksheets("OriginalSheet").Range("b4:b7")
End If

regards
FSt1

"Raymond W." wrote:

I need some help modifying this code to include the formatting of the cell
(conditional formatting):

If Not Intersect(Target, Range("b4:b7")) Is Nothing Then
Worksheets("DuplicateSheet").Range("b11:b14") =
Worksheets("OriginalSheet").Range("b4:b7").Value
End If

This is activated on the Worksheet_Change event. This code successfully
copies that range of cells to the duplicate sheet should I make a change to
one of them, but the conditional formatting is left behind. How can I drag
the formatting over as well?

Thanks!