Named Range Scope

Hi Folks,

Hopefully this is a simple one.

The following code defines the named range scope in the 'strWorksheet' Worksheet.
How do I get it to define the named range scope in the Workbook?

With Workbooks(strThisFileName).Worksheets(strWorksheet)
    ' Update the Named range "name_Automatic_Qualifier_Count" to include the range range BM5:rBottomRightCell.
    .Names.Add _
    Name:="name_Automatic_Qualifier_Count", _
    RefersToR1C1:=Range("BM5", Range("BM5", rBottomRightCell))
End With

Thanks,
Craig