Excel VisualBasic Script

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