Looping VBA code for Goalseeking skipping certain named sheets

Hi!

I tried to do something like this a year ago or so but it never quite came out how originally planned it and now its more important that I get it right.

I have a master sheet with data that references many sheets in the same wb. On each of the many sheets I need one cell to be goalseeked to zero. Right now I have the following few lines of code on each sheet that requires goalseeking:


[

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
Range("D4").GoalSeek Goal:=0, ChangingCell:=Range("C13")
Application.EnableEvents = True
End Sub]

This was sufficient for a while but what I need now is a looping code I can activate with a button. One that goes through each sheet in the wb but skips certain named sheets.

or even better...

Is it possible that if I had a list of the names of the certain sheets that I wanted the code to run on that if I selected this list of names and ran the code it would only run on those sheets?

your help is appreciated.

Thanks,

G