Thanks Kevin,
Excuse my ignorance but where do I put the code in
relation to cells A1 & B1? Does all the text
(from "Private..." to "$4.00" go into one cell?
Gren

-----Original Message-----
The following code placed in Worksheet will change the
value of cell B1 to $4.00 when cell A1 = A.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("$A$1") = "A" Then Range("$B$1") = "$4.00"
End Sub

Kevin
.