Sub Refresh_Data()
'
' Macro1 Refresh_Data
'
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
Const stCon As String = "DSN=HDReader;Uid=AR$Reader; Pwd=RE@d-0nly;"
Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset
cnt.ConnectionString = "DSN=HDReader;Uid=AR$Reader; Pwd=RE@d-0nly;"
cnt.Properties("prompt") = adPromptNever
cnt.Open
' Unhide sheets
Sheets("Group Name").Visible = True
Sheets("Categories_All").Visible = True
Sheets("Categories_CHG").Visible = True
Sheets("Categories_HDC").Visible = True
Sheets("Categories").Visible = True
Sheets("Business Impact").Visible = True
Sheets("Extent of Damage").Visible = True
Sheets("SHR_Location_Query").Visible = True
Sheets("Reference").Visible = True
'Update data
Sheets("Extent of Damage").Select
Range("A3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Business Impact").Select
Range("A3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Categories_HDC").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Categories_CHG").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Categories_All").Select
Range("A1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("SHR_Location_Query").Select
Range("A3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Group Name").Select
Range("A3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
' Hide sheets
Sheets("Group Name").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Categories_All").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Categories_CHG").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Categories_HDC").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Categories").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Business Impact").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Extent of Damage").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("SHR_Location_Query").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Reference").Select
ActiveWindow.SelectedSheets.Visible = False
' rst.Close
cnt.Close
End Sub