Hide sheet from macro

I need to open a hidden sheet (sheet 2) in order to copy to it. The code I have opens all hidden sheets. How would I ammend this to close sheet 2 after the copy/paste, and not close all sheets. Many Thanks

    Sub UnhideAll()
    Dim WS As Worksheet
    For Each WS In Worksheets
    WS.Visible = True
    Next
    Range("C7:H10").Select
    Range("H10").Activate
    Selection.Copy
    Sheets("Sheet2").Select
    Range("C7").Select
    ActiveSheet.Paste
    End Sub