Maybe write to the statusbar?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 1 Then Exit Sub
With Sheets("Sheet2") '"Output_5Tab")
.Range(Target.Address).Value = Target.Value
Application.StatusBar = Target.Address & " copied to Output_5Tab"
End With
End Sub



--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"ZZBC" wrote in message
...
I was given this code from another post "How do I convert a cell(s) from
the formula to it's contents?" .

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 1 Then Exit Sub
With Sheets("Output_5Tab")
.Range(Target.Address).Value = Target.Value
End With
End Sub

When I change in my input sheet "Int_5Tab" I get no indication that
anything is happening in the output file "Output_5Tab"???
Any recommendations ?