On Mon, 5 Mar 2007 16:24:18 -0800, Jay
wrote:

Sub kirkm()
For Each ws In ActiveWorkbook.Sheets
ws.Protect
Next 'ws
End Sub

To unprotect them, change the term "Protect" to "Unprotect". Or you can
manually unprotect each sheet using Excel's menu: Tools|Protection|Unprotect
Sheet...

Thanks Jay, that just what I wanted. Haven't got any locked
cells so that shouldn't be a factor.

Cheers - Kirk.