Macro to unhide/hide sheet(s)

You can only unhide the sheets, you can't pause the macro between (un)hiding.

What exactly do you mean?

Maybe

Sub HideSheets()
Dim shname As String
Dim Wsht As Worksheet
Do Until WorksheetExists(shname)
    shname = InputBox("Enter sheet name")
    If Not WorksheetExists(shname) Then MsgBox shname & " doesn't exist!", vbExclamation
Loop
    Sheets(shname).Visible = True
    For Each Wsht In Worksheets
        If UCase(Wsht.Name) <> UCase(shname) Then
            Wsht.Visible = False
        End If
    Next Wsht
End Sub
Function WorksheetExists(WSName As String) As Boolean
    On Error Resume Next
    WorksheetExists = Worksheets(WSName).Name = WSName
    On Error GoTo 0
End Function

VBA Noob

Try this, it will unhide each sheet in turn. You must start with all sheets but one hidden

Sub doShts()
Dim i As Long
Dim cnt As Long
Dim aSht As Worksheet

Set aSht = ActiveSheet
cnt = ThisWorkbook.Worksheets.Count
For i = 1 To cnt
If i > aSht.Index And i <= cnt Then
Sheets(i).Visible = -1
aSht.Visible = 0
Else: Sheets(1).Visible = -1
Sheets(cnt).Visible = 0
Exit For
End If
Next i
End Sub