Need to edge out the competition for your dream job? Train for certifications today.
Tech changes fast. You can learn faster. That’s why we’re bringing professional training courses to Experts Exchange. With a subscription, you can access all the Cloud Class® courses to expand your education, prep for certifications, and get top-notch instructions.
Application.DisplayAlerts = False
'Clear Old Sheets
For Each Worksheet In ActiveWorkbook.Worksheets
ShtName = Worksheet.Name
Select Case ShtName
Case "Info", "Data", "Summary"
For Mgr = 1 To Range("MGR_COUNT")
Range("MGR_NUMBER") = Mgr
OldName = ActiveCell.Worksheet.Name
NewName = Range("Mgr_Name")
Sheets(OldName).Name = NewName
Application.DisplayAlerts = True
Range("JOB_DATA").AdvancedFilter Action:=xlFilterCopy, _
Open in new window
SaveDir = Application.ActiveWorkbook.Path & "\Saved\"
SaveDate = Format(Date, "yyyymmdd")
SaveName = NewName & "_" & SaveDate
FullFileName = SaveDir & SaveName
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Your question, your audience. Choose who sees your identity—and your question—with question security.