I am trying to avoid cracking the password and then reprotecting the
sheet.

I don't think you have to. Here Sheet1 is already protected with a
password. The first line switches on "userinterfaceonly" and then Special
Cells works.

Sub a()
Sheet1.Protect , , , , True
Cells.SpecialCells(xlCellTypeFormulas).Select
End Sub


--
Jim
"M. Authement" wrote in message
...
I am creating a function that alters formulas in a user selected range. In
order to avoid looping through each cell in the range I was using the
SpecialCells method but this will not work if the sheet is protected. Is
there another way to return the formula-containing cells only without
looping through the entire selected range (which could be the entire
sheet!). I am trying to avoid cracking the password and then reprotecting
the sheet.