Количество строк таблицы активной рабочей книги. Таблица рабочих столов

Question

Я ищу правильный синтаксис, чтобы возвращать количество строк таблицы в рабочей книге. Нашел этот код и вам нужна помощь с синтаксисом: «Получение переменной Object или с переменной блока не установлена».

Я пытаюсь проверить, содержит ли таблица данные и если не повторить код обновления. если есть лучший способ, не стесняйтесь делать предложения.

Спасибо.

nRows = ActiveWorkbook.Worksheets("ResPlan_Data").ListObjects("Res_Plan_Data").DataBodyRange.Rows.Count 


         nRows = ActiveWorkbook.Worksheets("ResPlan_Data").ListObjects("Res_Plan_Data").DataBodyRange.Rows.Count 
         If nRows = 0 And Range("A3").Select <> Null Then 
          Range("A3").Select 
          Range(Selection, Selection.End(xlDown)).Select 
          Range(Selection, Selection.End(xlToRight)).Select 
          Selection.Copy 
          Range("Res_Plan_Data[ResourceFile]").Select 
          ActiveSheet.Paste 
         ElseIf nRows = 0 And Range("A3").Select = Null Then 
          If Worksheets("Resplan_Data").Visible = True Or Worksheets("ProjSum").Visible = True Then 
           Worksheets("Resplan_Data").Visible = False 
           Worksheets("ProjSum").Visible = False 
           Worksheets("Data Input").Select 
           MsgBox "Re-Select the Update Data Button, to re-processed missing data", vbOKOnly 
           Exit Function 
          End If 

Answer 1

Спасибо за предложение, однако, я решил исключить ту часть кода, и пошел с закрытием & возобновлением из оригинальной книги, и это сделано выше кода не нужно.