J
Jan Grinwis
This must be simple but I was unable to find how to do.
In the event handler I use a variable
-----------------------------------------------------
Option Explicit
Public var1 As String
Dim status As String
-----------------------------------------------------
Private Sub Worksheet_BeforerightClick(ByVal Target _
As Excel.Range, Cancel As Boolean)
If Target.Column <> 22 Then Exit Sub
If Target.row < 5 Then Exit Sub
If ActiveCell.Value = "" Then
ActiveCell.Value = "1"
status = "1"
End If
Var1 = Worksheets("maandag").Cells(Target.row, 28)
Check_status
End Sub
In the module it goes like:
Sub Check_status()
MsgBox var1
End Sub
Problem is that the var1 is not present in the module, can someone help me...
Thanks in advance
Jan Grinwis
In the event handler I use a variable
-----------------------------------------------------
Option Explicit
Public var1 As String
Dim status As String
-----------------------------------------------------
Private Sub Worksheet_BeforerightClick(ByVal Target _
As Excel.Range, Cancel As Boolean)
If Target.Column <> 22 Then Exit Sub
If Target.row < 5 Then Exit Sub
If ActiveCell.Value = "" Then
ActiveCell.Value = "1"
status = "1"
End If
Var1 = Worksheets("maandag").Cells(Target.row, 28)
Check_status
End Sub
In the module it goes like:
Sub Check_status()
MsgBox var1
End Sub
Problem is that the var1 is not present in the module, can someone help me...
Thanks in advance
Jan Grinwis