Dear Sir, can someone help me to shorten following two codes, its manually recorded so I am seeing all flashed on screen which I dont want
Code:
Sub Home1()
For sh = 1 To Sheets.Count
Sheets(sh).Visible = -1
Next sh
Sheets("HOME").Select
Sheets(Array("Pending Invoice", "Invoice Report", "Invoice Data", "Invoice", "DC", _
"DC Record", "DC Report")).Select
Sheets("DC Report").Activate
ActiveWindow.SelectedSheets.Visible = False
Range("A8").Select
End Sub
Sub InvoiceReport()
For sh = 1 To Sheets.Count
Sheets(sh).Visible = -1
Next sh
Sheets("Invoice Report").Select
Sheets(Array("HOME", "Pending Invoice", "Invoice Data", "Invoice", "DC", "DC Record" _
, "DC Report")).Select
Sheets("Pending Invoice").Activate
ActiveWindow.SelectedSheets.Visible = False
ActiveSheet.PivotTables("PivotTable4").PivotSelect "'11/18/2019'", _
xlDataAndLabel, True
Range("A2").Select
End Sub