
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Me
If .Range("H4") < .Range("H3") Then
Debug.Print .Range("H4").Value
End If
End With
End Sub
|
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Me
If .Range("H4") < .Range("H3") Then
call mimodulo.miamacro
End If
End With
End Sub
|
