Snasui Excel Forum

Code: Select all

Sub act()
Range("f1").Select
ActiveCell.Value = 25
Cells(6, 13).Select
ActiveCell.Value = "OK"
End Sub

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("f1").Select Then
ActiveCell.Value = 11
ElseIf Range("f13").Select Then
ActiveCell.Value = 20
Exit Sub
End If
End Sub

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("f1").Address Then
        ActiveCell.Value = 11
    ElseIf Target.Address = Range("f13").Address Then
        ActiveCell.Value = 20
        Exit Sub
    End If
End Sub