Hey all,

I am trying to pass the name of a workbook to another procedure - 

Sub Start_SignatureDates()
' Start - Signature Dates Macro
' Runs the relevant procedures to update the latest Signature file update dates on the Home page

    GetNames (ThisWorkbook)

End Sub

Sub GetNames(wbName As Workbook)
' Get Names Macro
' Macro gets every name from the tabs in the Workbook and places them in Column G

Dim wB As Workbook                  ' This will be this Workbook
Dim wS As Worksheet                 ' This will be the Sheets in the Workbook
    
    Set wB = wbName
    
    Range("G3").Select
    For Each wS In wB.Worksheets
        If wS.Name <> "Home" Then
            ActiveCell.value = wS.Name
            ActiveCell.Offset(1, 0).Select
        End If
    Next
    Columns("G:G").EntireColumn.AutoFit
    Range("A1").Select

End Sub
But without any luck. I am being given the following error -

Run-time error '438':

Object doesn't support this Property or Method
If anybody could help me suss out how to do this correctly I'd appriciate it.

Thanks.