Same action on all but one worksheets
Posted by JAF on April 20, 2001 8:00 AM
I have a workbook containing (currently) 26 worksheets. Each worksheet contains individual cases which are updated each month. The last worksheet in the workbook summarises the individual data.
I need to update all the worksheets to move data in Column C into Column D on all sheets EXCEPT the last sheet.
I have the code for performing the same action on all sheets (as below), but I can't work out how to get it to stop when it gets to the last sheet.
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Sheets
Sh.Range("B2").Value = 99
To summarise, I want to perform the same action (in the example above putting a value of 99 in cell B2 on all sheets) but I don't want to do anything to the last sheet.