Excel VBA Code Help

Hello, I'm new to VBA....

Aside from recording my own macros I'm not confident writing my own code from scratch. I have a Macro where I hide and unhide information, charts, drop downs, check boxes etc. on one sheet but I need to copy the same sheet 19 more times and know there's a way to code the Macros once and work for all sheets individually. Could anyone help me!! Below is a two of my macros I need to duplicate on all other sheets. Any help would be greatly appreciated!!!

Sub HIDEINJECTION()
'
' HIDEINJECTION Macro
' Hides only Injection Information
'
' Keyboard Shortcut: Ctrl+i
'
    Rows("41:189").Select
    Selection.EntireRow.Hidden = True
    ActiveSheet.Shapes.Range(Array("Check Box 444")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Check Box 438")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Check Box 212")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Check Box 209")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Check Box 201")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Check Box 198")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Drop Down 197")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Drop Down 160")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Drop Down 141")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Drop Down 139")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Drop Down 137")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Drop Down 136")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Drop Down 92")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Group Box 55")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Drop Down 160")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Drop Down 160")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Drop Down 141")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Drop Down 141")).Select
    ActiveSheet.Shapes.Range(Array("Drop Down 141")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Drop Down 65")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Drop Down 65")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Drop Down 60")).Visible = msoFalse
    ActiveSheet.Shapes.Range(Array("Check Box 449")).Visible = msoFalse
    Application.CommandBars("Selection").Visible = False
    ActiveWindow.SmallScroll Down:=-20
    ActiveSheet.Shapes.Range(Array("Option Button 174")).Select
    Range("C3").Select
    ActiveWindow.SmallScroll Down:=-8
End Sub
Sub SHOWINJECTION()
'
' SHOWINJECTION Macro
' Shows only injection info
'

'
    Rows("40:190").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=24
    ActiveSheet.Shapes.Range(Array("Check Box 444")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Check Box 438")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Check Box 212")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Check Box 209")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Check Box 449")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Check Box 201")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Check Box 198")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Drop Down 197")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Drop Down 160")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Drop Down 141")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Drop Down 139")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Drop Down 137")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Drop Down 136")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Drop Down 92")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Drop Down 60")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Group Box 55")).Visible = msoTrue
    Application.CommandBars("Selection").Visible = False
    Range("B41").Select
    ActiveWindow.SmallScroll Down:=4
    ActiveWindow.Zoom = 85
End Sub