お世話になります。
VBから、Excelのワークブックを開き、Sheet1A列の最初の空白行の行番号を取得したいのですが、
うまくいきません。
Private Sub Command1_Click()
Dim xl As Object 'Excel.Application
    Dim wb As Object 'Excel.Workbook
    Dim ws As Object 'Excel.Worksheet
    
    ' エクセルオブジェクトの新しいインスタンスを作成
    Set xl = CreateObject("Excel.Application")
    
    ' ファイル名を指定してワークブックを開く
    Set wb = xl.Workbooks.Open("C:\temp\Book1.xls")
    
    ' エクセルを表示
     xl.Visible = True
    
    ' シート名を指定してオブジェクトを定義
    Set ws = wb.Worksheets("Sheet1")

　　　ws.Range("a65536").End(xlup).Select
        j = ws.ActiveCell.Row + 1
　　msgbox j
End Sub

ws.Range("a65536").End(xlup).Selectのxlupでコンパイルエラーになります。
どのように変更すればよいのでしょうか？
よろしくおねがいします。

> ws.Range("a65536").End(xlup).Selectのxlupでコンパイルエラーになります。
xlup の定数が宣言されていないからです。
事前バインディングで使用するか？　定数を宣言して使用して下さい。

Const xlUp = -4162

但し、これで何がしたいのかは、よく解りません。