Hi Michael,

If by locking you mean protecting, this simple macro does it in the
active workbook without needing to turn off screen updating -

Sub LockSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect
Next ws
End Sub

Are you selecting each sheet? You don't need to. I hope this helps,

Gary