Cacher is the code snippet organizer for pro developers

    Dim objWB     As Workbook
    Dim objWS     As Worksheet
    Dim lngRowMax As Long
    Dim lngColMax As Long

    '--- Bookを開いてWorksheetの参照を取得する ---
    Set objWB = Workbooks.Open("C:\Book1.xls")
    Set objWS = objWB.Worjsheets("Sheet1")
    
    '--- 最大行を取得する(基準となるKEY列が1列目の場合) ---
    If F_GetRowMax(objWS, 1, lngRowMax, strMsg) = False
        MsgBox strMsg
    Else
        MsgBox "最大行：" & Cstr(lngRowMax)
    End If

    '--- 最大行を取得する(基準となる列がない場合) ---
    If F_GetRowMax(objWS, , lngRowMax, strMsg) = False
        MsgBox strMsg
    Else
        MsgBox "最大行：" & Cstr(lngRowMax)
    End If
    
    '--- 最大列を取得する(基準となるKEY行が1列目の場合) ---
    If F_GetColMax(objWS, 1, lngColMax, strMsg) = False
        MsgBox strMsg
    Else
        MsgBox "最大列：" & Cstr(lngColMax)
    End If

    '--- 最大列を取得する(基準となる行がない場合) ---
    If F_GetColMax(objWS, , lngColMax, strMsg) = False
        MsgBox strMsg
    Else
        MsgBox "最大列：" & Cstr(lngColMax)
    End If

    '--- 後片付け ---
    Set objWS = Nothing
    objWB.Close SaveChanges:=False
    Set objWB = Nothing