Eu obtive o número correto de linhas com este código de teste, algumas alterações podem ser feitas para você utilizar. O código foi feito em Excel-VBA 7.1. Pelo que entendi a planilha já existe.
Dim objExcel As Object: Set objExcel = CreateObject("Excel.Application")
Dim pathWorkbook As String: pathWorkbook = "C:\Users\nome_usuario\Desktop\Pasta1.xlsm"
Dim objWorkbook As Object: Set objWorkbook = objExcel.Workbooks.Open(pathWorkbook)
Dim dic As Object: Set dic = CreateObject("Scripting.Dictionary")
Dim ws As Worksheet
Dim nomePlanilha As String
Dim maxRows As Long
objExcel.Visible = False
nomePlanilha = "Planilha1"
Set ws = objWorkbook.Sheets(nomePlanilha)
' INICIO DA FORMATAÇÃO
With ws
objExcel.Cells.Font.Name = "Calibri"
objExcel.Cells.Font.Size = 9
objExcel.Cells.EntireColumn.AutoFit
objExcel.Cells.RowHeight = 13.5
objExcel.Cells.AutoFilter
End With
' RECUPERA QUANTIDADE DE LINHAS
maxRows = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Debug.Print maxRows
On Error Resume Next
objWorkbook.Close (True)
On Error Goto 0
Set objWorkbook = Nothing
PASSOS PARA DECLARAR CORRETAMENTE
- Criar um objeto de Aplicação Excel
Dim objExcel As Object: Set objExcel = CreateObject("Excel.Application")
- Criar a String no nome do caminho do arquivo
Dim pathWorkbook As String: Let pathWorkbook = "Caminho"
- Abrir a planilha Excel
Dim objWorkbook As Object: Set objWorkbook = objExcel.Workbooks.Open(pathWorkbook)
- Declarar a planilha do Excel
Dim ws As Object
e selecionar o nome da mesma Set ws = objWorkbook.Sheets(nomePlanilha)
pode ser o nome entre aspas ("Planilha1") ou o número de index (1,2,3,etc.)
- Com a planilha ws declarada, você pode utilizá-la para realizar as operações em Excel-VBA
- Para fechar corretamente
objWorkbook.Close (True)
True salva a planilha e False não salva.
Nota
Para ver a janela do Debug.Print
, habilite no Excel VBA a Verificação imediata.
Caso a planilha ainda não exista, então você precisa adicioná-la:
Dim ws As Worksheet
With objWorkbook
Set ws = Sheets.Add(After:=Sheets(Sheets.Count))
ws.Name = "TD"
End With
Edit:
O que você deve ter esquecido é de habilitar os objetos Excel nas referências.
1o Abra o Visual Basic do Access
2o Entre em Ferramentas -> Referências...
3o Habilite o Microsoft Excel Object conforme a imagem abaixo:

Set ws = Sheets("Planilha1")
e usarws.range("A1").Select
. Veja um exemplo de como declarar, pode ser a falta de declaração de qual livro deve ser aberto e qual planilha. Você está programando somente para a planilha Excel ou para interagir com outros softwares?Dim ... As Object
?