Public Sub List_Object0() Dim lo As ListObject Set lo = Sheet2.ListObjects("EmpTable") End Sub second line !!!!! Any Clue .... Office 16