Dont display table if empty

There's probably a way to check if the table X amount of rows and then you can delete the table in VBA.

I'd recommend posting questions around VBA for Excel on the forum below:

office-vba-dev - Microsoft Q&A

These sorts of automations are primarily driven outside of Power Query and only enabled or limtied by the product integration which in this case is Excel, so it is recommended that you post this question in a forum more focused towards Excel like the one I provided above.

Best!

Hi jijoythomas29,

the code itselfis fairly simple:

Private Sub Workbook_ModelChange(ByVal Changes As ModelChanges)
    
    tblExists = False
    
    If Changes.TablesModified.Count > 0 Then Exit Sub
    
    On Error Resume Next
        tblExists = ActiveSheet.ListObjects("Query1").Name = "Query1"
    On Error GoTo 0
        
    
    If tblExists Then
        ActiveSheet.ListObjects("Query1").Refresh
    Else
        With ActiveSheet.ListObjects.Add(SourceType:=4, Source:=ActiveWorkbook. _
            Connections("Query - Query1"), Destination:=Range("$A$2")).TableObject
            .RowNumbers = False
            .PreserveFormatting = True
            .RefreshStyle = 1
            .AdjustColumnWidth = True
            .ListObject.DisplayName = "Query1"
            .Refresh
        End With
    End If
    
    If ActiveSheet.ListObjects("Query1").Range.Rows.Count < 3 Then ActiveSheet.ListObjects("Query1").Delete
    
End Sub

Above, we check if the table exists (cos we gong to delete the emplty this may not be the case) and delete it. Then we add it back and check how may rows it has, if only two then we delete it. Just change the code to your Workbook section of your VBA code. It will run on RefreshAll, but you will need to initially set the query to feed to your Data model in the Excel file (using Load To...).

Do you want to make the file macro-enabled only for this benefit?

Kind regards,

John