easy - use a worksheet change code (put in worksheet code area)
Try this :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cna$
cna = "$B$10" 'This is the cell to check - the "customer name address" :)
If Target.Count > 1 Then Exit Sub
If Target.Address <> cna Then Exit Sub
If Target.Value = "" Then
Target.Value = "Customer Name"
Target.Font.ColorIndex = 15 'Change to 16 if you want it a bit darker
Exit Sub
End If
If Target.Value <> "" Then
Target.Font.ColorIndex = 1
End If
End Sub
Please click the * below if this helps
Bookmarks