How to refresh workbook query assiociated with PowerQuery based on query name?

Please try this, where Table1 is your query name

Sub RefreshQuery()
    ActiveWorkbook.Connections("Query - Table1").Refresh
End Sub