実行時エラー"1004"「"Range"メソッドは失敗しました："_Global"オブジェクト」

Question

AccessのVBAからExcelを開いて指定行を固定する操作をしたいです。

   Dim ExcelApp As Object
   Dim ExcelBook As Object

   Set ExcelApp = CreateObject("excel.application")
   ExcelApp.Visible = True
   Set ExcelBook = ExcelApp.Workbooks.Open(StrFile)

 ExcelBook.Worksheets("Sheet1").Activate
   range("C2").Select
   ActiveWindow.FreezePanes = True
   ExcelBook.Save
   ExcelBook.Close
   ExcelApp.Quit
   Set ExcelBook = Nothing
   Set ExcelApp = Nothing

（関係ないコードは省きました）

「range("C2").Select」の行でエラーが起こっており、要するにRangeがうまくセレクトできないという意味だと思います。
このエラーでググって試行錯誤しましたがどうにもよくわかりませんでした。
実行すると表題のエラーが出るときと出ないときがあり、解決方法が見いだせない状況です。

よろしくお願いします。