Hi there,
You could use something like this...
<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> RunOnAllSheets()<br> <SPAN style="color:#00007F">Dim</SPAN> WS <SPAN style="color:#00007F">As</SPAN> Worksheet<br> <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> WS <SPAN style="color:#00007F">In</SPAN> ThisWorkbook.Worksheets<br> <SPAN style="color:#007F00">'run code here, reference the worksheet with "WS.Range..." etc</SPAN><br> <SPAN style="color:#00007F">Next</SPAN> WS<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
HTH