Stock Levels, Minus a list of values at the click of a button

You can use an array of sheet names like this:

    For Each ws In ActiveWorkbook.Worksheets(Array("worksheet1", "worksheet2", "worksheet4"))

    Next ws

for example.