Hey Charles,

That works great - Thanks.

Only one more procedure left to complete this project. But that can
wait for the next post.

Again, thank you very much for your help.

-Minitman




On Wed, 25 Feb 2004 13:25:43 -0000, "Charles Williams"
wrote:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 Then
Worksheets("Sheet3").Range("b2") = Target.Value
End If
End Sub