Can I have one Macro for the whole workbook instead of one on each worksheet

[Certificates!]

I have a workbook with 25 pages currently though this will increase as time progresses.

Each page has two Macros. They are the same on each page.

They are proving very hard to identify when I try an run them because they are identified as Sheet 1,Sheet 2 etc and the sheets all have the dates as names.

Is it possible to have one macro that will work for the whole book allowing me to just hide all the sheets I need to do.

This is on each page at present.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, [F3]) Is Nothing Then
            Select Case UCase(Target)
                Case "MEDAL"
                    [X1].EntireColumn.Hidden = True
                    [AB1].EntireColumn.Hidden = False
                    [AE1].EntireColumn.Hidden = True
                Case "SCRAMBLE"
                    [X1].EntireColumn.Hidden = True
                    [AB1].EntireColumn.Hidden = False
                    [AE1].EntireColumn.Hidden = True
                Case "STABLEFORD"
                    [X1].EntireColumn.Hidden = False
                    [AB1].EntireColumn.Hidden = True
                    [AE1].EntireColumn.Hidden = True
                Case "PAR"
                    [X1].EntireColumn.Hidden = True
                    [AB1].EntireColumn.Hidden = True
                    [AE1].EntireColumn.Hidden = False
                Case Else
                    [X1].EntireColumn.Hidden = False
                    [AB1].EntireColumn.Hidden = False
                    [AE1].EntireColumn.Hidden = False
            End Select
        End If
    End If
End Sub
Sub Hide_Columns()
  Range("I:J,N:W, Y:AA,AC:AD").EntireColumn.Hidden = True
End Sub

I know very little about VBA/Macros and googled to get this code.

 

[vletm]

Certificates!
You seems to duplicate Your thread with new Title.

One Macro - Lots of Worksheets. Is it Possible

I have a workbook which will eventually have about 100 worksheets. The sheets are all exact copies of each other, though the data is different. These two macros are currently on the first few worksheets. Is it possible to come up with something that I can put on the first page instead of doing...

chandoo.org

You can continue with Your original thread,
which has a solution too.
This thread is closed now.