Vba to open closed tabs in a work book then close them

Hi all
I have a bit of a problem with some code I wrote if the tabs sheets are open then the copy move function works fine What I need is to open then close the tabs sheets as it runs
Hope some one can help me

Sub Move()
'
' Move all Entries for the next year


myCheck = MsgBox("Warning Warning. " & vbCrLf & "This will Move all Data To Past Member and Reset the Master Mem Tab . " & vbCrLf & _
        "Do you wish to continue?", vbYesNo + vbInformation, "Message Box")
    
    If myCheck = vbNo Then Exit Sub

Dim TabName As String
    
    Sheets("Six Year Derby").Select
      Range("B5:S46").Select
      Selection.ClearContents
    
    Sheets("Five Year Derby").Select
      Range("B5:S46").Select
      Selection.Copy
      Sheets("Six Year Derby").Select
    ActiveSheet.Paste
    
    Sheets("Four Year Derby").Select
       Range("B5:S46").Select
       Selection.Copy
       Sheets("Five Year Derby").Select
     ActiveSheet.Paste
    
    Sheets("Three Year Old").Select
       Range("B5:S46").Select
       Selection.Copy
       Sheets("Four Year Derby").Select
     ActiveSheet.Paste
    
    Sheets("Two Year Old").Select
       Range("B5:S46").Select
       Selection.Copy
       Sheets("Three Year Old").Select
     ActiveSheet.Paste
      
    Sheets("Yearling Year").Select
       Range("B5:S46").Select
       Selection.Copy
       Sheets("Two Year Old").Select
    ActiveSheet.Paste
    
    Sheets("Weanling Year").Select
       Range("B5:S46").Select
       Selection.Copy
       Sheets("Yearling Year").Select
    ActiveSheet.Paste

Sheets("Weanling Year").Select
       Range("A5:S46").Select
      Selection.ClearContents
     ActiveCell.Select
        
        Sheets("Weanling Year").Select
     Application.CutCopyMode = False
End Sub