I have found some code provided by GTO via the search functionality on this site.

The code that works is

[vba]If Sheet.Name <> "Summary" _
And Not Sheet.Name = "Sample" _
And Not Sheet.Name = "Sample2" Then[/vba]