Use a looping macro

--
Don Guillett
SalesAid Software

"Newbeetle" wrote in message
...
Hi,

Can I amend the code below so that it applies to all worksheets without
the
need to list each sheet name?

Sub Workbook_Open()
Sheets("Sheet1").EnableSelection = xlUnlockedCells
End Sub
--
This post was created using recycled electrons!