Deb

On your Sheet "ExpenseCorpOffice3Quarter insert a MacroButton and assign the
following.

Assign another sheet name where you want the focus to go once the sheet has
been hidden.

Sub HideExpenseCorpOffice3quarter()
Sheets("ExpenseCorpOffice3quarter").Visible = False
Sheets("SomeOtherSheetName").Select
End Sub

HTH
Mark.