object variable or with block variable not set

[gheyman]

I have a button on the tab that runs this code. The refresh is for a table on the tab and the table starts in A5

Sub RefreshProp()
' RefreshIHS Macro
'
    Sheets("PROP_MASTER_TABLE").Select
     With Sheets("PROP_MASTER_TABLE")
        .Range("C1").Value = Format(Now, "mm/dd/yyyy HH:mm:ss")
    End With
    
    Range("D6").Select
    Selection.ListObject.TableObject.Refresh
    
End Sub

Not sure what the error message means or how to fix the code

 

[nemmi69]

What does the error message say and for which line?

 

[gheyman]

What does the error message say and for which line?

The Line is:
Selection.ListObject.TableObject.Refresh


Run-time error '91': The message that pops up is "Object variable or with block variable not set"

 

[nemmi69]

You need to set the objects first so something like this though the tableobject is not set to do anything.

Sub RefreshProp()
' RefreshIHS Macro
'
Dim wrksht As Worksheet
Dim objTable As TableObject
 
Set wrksht = ActiveWorkbook.Worksheets("Sheet1")
Set oListCol = wrksht.ListObjects(1).ListRows
Set objTable = objWorksheet.ListObjects

    Sheets("Sheet1").Select
     With Sheets("Sheet1")
        .Range("C1").Value = Format(Now, "mm/dd/yyyy HH:mm:ss")
    End With
    
    Range("D6").Select
    Selection.ListObject.TableObject.Refresh
objTable.Refresh
    
End Sub