Calling a Worksheet_SelectionChange Subroutine

[johnske]

From what I think you're trying to do, try this and see if it does what you want...

In any standard code module (up the top)[vba]
Option Explicit

Public OK As Boolean
[/vba]

In the ThisWorkbook code module[vba]
Option Explicit

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If OK Then
With Sh
.Cells.Interior.ColorIndex = xlNone
Union(.Range("A" & Target.Row, Target), _
.Range(Cells(7, Target.Column), Target)) _
.Interior.ColorIndex = 6
End With
End If
End Sub
[/vba]

In the UserForm code module[vba]
Option Explicit

Private Sub cmdOK_Click()

OK = True

'....some code.... 'open worksheet
'....some code.... 'worksheet now open is the active worksheet

End Sub

Private Sub UserForm_Terminate()
OK = False
End Sub
[/vba]