Hi,

I'm sure I've seen this somewhere, but can someone remind me of the code to cycle through each sheet in the workbook in turn (I then want to overwrite all formulas with the values)

Any one assist?

Cheers,

Ad

this shuid do it nicely for u




Sub cycleWorksheets()

For Each w In Application.Worksheets '<- cant remember if this line is the correct one to use but it works
Debug.Print w.Name
w.Select
'eneter your paste special formula code here
Next

End Sub

Hello Ad,
I believe this is what you want:

Sub LoopWs()
Dim ws As Worksheet
'
'   you can hard-code the workbook if you like
    For Each ws In ActiveWorkbook.Worksheets
        ws.Range("A1") = 1
        ws.Range("A2") = 1
        ws.Range("A3").Formula = "=A1+A2"
    Next ws
End Sub

Thanks... it was the "For Each ... In... " context I was after.

Cheers all!

Ad