Solved: How do you run ThisWorkbook code from a module?

[nousername]

I am trying to run some code contain in ThisWorkBook under the sub Workbook_SheetSelectionChange. I am trying to use some code in module1 to toggle the ThisWorkbook code on and off when the user select that option under the contextmenu.

Where am I going wrong with the code below?

Module1 Code:
[vba]
Public bSwitch As Boolean
Public bRw As Boolean

Sub MyTestCode()

'Enable user to switch on/off with a right click prompt
If bSwitch Then
If MsgBox("Shut off", 36) = 7 Then Exit Sub

Else
If MsgBox("Turn on", 36) = 7 Then

ThisWorkbook.Test

End If

'Toggle boolean variable on/off switch
If Selection.Rows.Count > 1 Then
bRw = False
Else
bRw = True
End If
bSwitch = Not bSwitch

End If
End Sub
[/vba]
ThisWorkbook Code:
[vba]
Public Sub Test()
If Not bSwitch Then Exit Sub
Else
ThisWorkbook.Workbook_SheetSelectionChange
End If
End Sub


Public Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'If we are running procedure or not:
If Not bSwitch Then Exit Sub

' More code is located here removed for posting.

End Sub
[/vba]

[Bob Phillips]

Two things.

Code like this

[vba]

If Not bSwitch Then Exit Sub
Else
ThisWorkbook.Workbook_SheetSelectionChange
End If
[/vba]

is just plain wrong, you are mixing a single line If with an If ... Else structure. It should be

[vba]
If Not bSwitch Then
Exit Sub
Else
ThisWorkbook.Workbook_SheetSelectionChange
End If
[/vba]

You do this in two places.

Secondly, the event procedure you are calling has arguments, so you must pass parameter values to the procedure arguments for it to run.

[mdmackillop]

Hi Nousername,
When you post code here, select it and click the VBA button to format it as shown. The Code tags don't do that
Regards
MD

[nousername]

Here is a sample project of what I am trying to do.

[rbrhodes]

HI nn,

and here's your sample back... I think you were trying too hard? <g>

Dusty

[nousername]

YOU ROCK!! The code works just like I wanted it too!!

THANKS!!