Method range of object global failed

Hi all,
I am stuck with this error above named in the row below with arrows

Private Sub cmdSLSave_Click()
'reads data from the products store, removes and finally logs this entry
'in a new form "Sales Records
Set LastRow = Worksheets("Production Records").Range("B65536").End(xlUp)
'returns the column number of Instore_quantity
col = Range("Instore_Qtty").Column <---------------
topRow = Range("Instore_Qtty").row<----------------
row = Evaluate("= MATCH(True,Instore_Qtty<>0,0)")
row = row + topRow - 1
Debug.Print col, topRow, row
'End With
End Sub

From what i read this error usually comes when the named range is involved is invalid. In debugging i proved that this is actually the problem. Because replacing the "instore_qtty" with another named range did result in same error
the "instore_qtty" is a named dynamic range on the sheets "Production records"
I have apparently failed to see what the problem is with the naming of the range
Below is the actual synatx for the dynamic range "instore_qtty"

=OFFSET('Production Records'!$H$5,0,0,COUNTA('Production Records'!$H:$H)-1,1)

If anybody can advise me how to proceed i will be very glad.
Stephen