Better way to unhide/hide multiple sheets

[groundin]

I have a macro that I want to unhide 10 sheets print based on a formula (as I need to unhide them before I can print them I believe) then hide them again

right now I have the following line 10 times to unhide the sheets.

Sheets("Don't Unhide Motor Report (1)").Visible = True
Sheets("Don't Unhide Motor Report (2)").Visible = True

etc to 10

is there a better way to write this? or am I stuck with these 10 lines at start and then 10 "hide" lines at the end?

[RHCPgergo]

Here are some ideas.
edit: corrected the code

Sub YourMainMacro()

Call SheetHider '(unhides the sheets)
'here goes the code for printing or something else
Call SheetHider '(hides the sheets)

End Sub

Sub SheetHider()

Dim SheetsArray
Dim i As Integer

SheetsArray = Array("SheetName1", "SheetName2") 'etc
For i = Lbound(SheetsArray) To UBound(SheetsArray)
    Sheets(SheetsArray(i)).Visible = Not Sheets(SheetsArray(i)).Visible
Next i

End Sub

Sub SheethiderAlternative()

'if all the worksheet names are similar as in your example
'like this: Sheets("Don't Unhide Motor Report (1)")
'then you can do it a little easier

Dim i As Integer
Dim str As String

For i = 1 To 3
    str = "Don't Unhide Motor Report (" & i & ")"
    Sheets(str).Visible = Not Sheets(str).Visible
Next i

End Sub

[groundin]

Thanks,
I'll play around with it a bit when I get a chance and let you know how it works out

[groundin]

I tweaked this for another set of pages, it works good, but if a page is visible it hides it, then I get it error.
Is there any way that it can ignore sheets that are visible and then hide all the visble ones after it has deleted what needs to be deleted?

Sub ClearDailys()
'
' ClearDailys Macro
'

'

Call SheetHider '(unhides the sheets)
'here goes the code for printing or something else
Dim i As Integer
Dim str As String

For i = 1 To 31
    str = "Daily (" & i & ")"
Sheets(str).Select
    Range("B4:B11,D4:D8,D10,F3,B14:F38").Select
    Range("B14").Select
    Range("B4:B11,D4:D8,D10,F3,B14:F38,E41:L50,a41:a50").Select
    Range("E41").Activate
    Selection.ClearContents
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Next i
Call SheetHider '(hides the sheets)

End Sub
Sub SheetHider()

'if all the worksheet names are similar as in your example
'like this: Sheets("Don't Unhide Motor Report (1)")
'then you can do it a little easier

Dim i As Integer
Dim str As String

For i = 1 To 31
    str = "Daily (" & i & ")"
    Sheets(str).Visible = Not Sheets(str).Visible
Next i

End Sub