Empty Cell Returns A Zero?

[rockyw]

I have a code copy and paste from a column of cells. The cells I paste into have a condisional format. Even when the cell I copy out of is empty ( I do have a formula in here) , I still return a 0 in the cell I paste into, that screws up the condisional format. I have it set in options not to show zeros, how can I get this code NOT to show a 0 when it copys an empty cell? Thanks

 

[rockyw]

How can I write this to point to sheet 2, E3

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim rMonitor As Range
    Dim rTarget As Range
    Set rMonitor = Range("E3")
    Set rTarget [COLOR=red]= Range("Sheet2", "E3")
[/COLOR]    
    If Not Intersect(Target, rMonitor) Is Nothing Then
        rMonitor.Copy rTarget
    End If
    Set rMonitor = Nothing
    Set rTarget = Nothing
End Sub

 

[Marcelo Branco]

Try

Set rTarget = Sheets("Sheet2").Range("E3")

M.