VBA for Copying Tabs to another file location that's already saved.

[aspinray]

Hi,

I was wondering if someone can help?

I have a spreadsheet "Holiday Planners" in that I have several tabs of areas "Enhance, Prepay, Appointments". Each of these have a calendar with slots that are available on that day.

This is the main spreadsheet that I update each time some books a holiday. However, I want to copy these tabs to another spreadsheet to another location for staff to view that is protected and read only.

I have used -

Private Sub Workbook_BeforeSave(ByVal _
SaveAsUI As Boolean, Cancel As Boolean)

With ThisWorkbook
.SaveCopyAs ("file path -" Copy of " & .Name)
End With
End Sub


previously for something else i have used. However this is a direct duplicate and copies the file.

I would prefer that on saving the master holiday planner it copies each tab and pastes it into the read only file that staff see, this is so i can hide certain rows.

However, if you have any ideas it will be greatly appreciated.

thank you!

 

[Joe4]

Re-posted here: Code to save more than one sheet.

In the future, please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule #12 here: Forum Rules).