Private Sub Worksheet_Change(ByVal Target As Range) Select Case Target.Address Case "$B$1" Debug.Print Target.Value Case "$B$2" Debug.Print Target.Value End Select End Sub