Передача переменной Target из ThisworkBook module в UserForm - VB

Формулировка задачи:

Всем доброго дня! При нажатии на определённый диапазон на различных листах запускается процедура Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range), в которой, в свою очередь, происходит вызов UserForm. Подскажите, пож-та, каким образом можно передать переменную Target (через Public Declaration) из модуля ThisWorkbook в UserForm_Activate/Initialize()?

Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range)
 
Dim rng As Range
 
If InStr(1, sh.Name, "W", vbTextCompare) > 0 Then
 
Set rng = ThisWorkbook.Worksheets(sh.Name).Range("Z10:AD300,BB10:BH300")
 
If Not Intersect(rng, Target) Is Nothing Then
    
UserForm.Show
 
End If
 
End If
 
End Sub

Private Sub UserForm_Activate()
 
Dim c As Object
 
For Each c In ThisWorkbook.Sheets(Лист1).Range("B3:B" + CStr(Sheets("Лист1").Range("B5000").End(xlUp).Row))
 
If c = Target.Offset(0, -Target.Column + 7) Then
 
ListBox1.AddItem c.Offset(0, 6)
   
End If
 
Next c
 
End Sub

Решение задачи: «Передача переменной Target из ThisworkBook module в UserForm»

textual
                            Листинг программы 
                        

                            Private Sub UserForm_Activate()
Dim c As Object
For Each c In ThisWorkbook.Sheets(Лист1).Range("B3:B" + CStr(Sheets("Лист1").Range("B5000").End(xlUp).Row))
If c = SELECTION.Offset(0, -SELECTION.Column + 7) Then
  ListBox1.AddItem c.Offset(0, 6)
End If
Next c
End Sub
                        