Mohammad Shafaat
New Member
Code:
ActiveWorkbook.RefreshAll
Worksheets(Array("Team_Wise", "XYZA_Performance", "Channel", "XYZ_NORMAL", "Controlled", "Source")).Copy
With ActiveWorkbook
.SaveAs Filename:="E:\Automation\New folder\IVR\" & "UPE_xyz_Performance.xlsx", FileFormat:=51
ActiveWorkbook.Sheets("Source").Visible = xlSheetVeryHidden
.Close savechanges:=True
Application.DisplayAlerts = False
Last edited by a moderator: