I'm sure this can all be condensed. I've looked in Help, and looked for
other posts, with no luck.
Can't I name all the sheets together?

I'm thinking somethning like:
With Sheets("Touches")("Notes")("Add-delete history")("Graph Data)

This code below works. Would like to put it all in 1 block. Can anyone
help?
Thanks,
J.O.

With Sheets("Touches")
.Visible = False
End With
With Sheets("Notes")
.Visible = False
End With
With Sheets("Add-delete history")
.Visible = False
End With
With Sheets("Graph Data")
.Visible = False
End With