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

Hi,

You don;t need to select stuff just in order to copy it and paste it somewhere else. In fact .Selectin and .Activate are raely necessary. This means you can work with hidden sheets.

So for instance where you have

      Sheets("Six Year Derby").Select
      Range("B5:S46").Select
      Selection.ClearContents

use instead

Sheets("Six Year Derby").Range("B5:S46").ClearContents

And another improvment, don't use sheet tab names, they are too easily changed by a user and will cause your code to fail. Use the VBA Sheet Code name instead.