Why don't you use ?

Sub M_snb()
  with getobject("G:\OF\example.xlsx")
     sn=.sheets(1).usedrange
    .close 0
  end with
End Sub