Snasui Excel Forum

Code: Select all

Sub Macro1()
    Range("B3").Select
    ActiveCell.FormulaR1C1 ="สสสสส"
    Sheets("Sheet2").Select
    Range("B4:E5").Select
    Selection.ClearContents
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$3" Then
        Range("B4:E5").ClearContents
    End If
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$3" Then
        Sheets("Sheet2").Select
        Selects("B4:E5").ClearContents
    End If
End Sub

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$3" Then
        Sheets("Sheet2").Range("B4:E5").ClearContents
    End If
End Sub

Code: Select all

If Target.Address = "$B$3" Or Target.Address = "$E$5" Or Target.Address = "$F$2" Then