Is it possible?

I have a worksheet that has data in Columns A:X and rows 1 to 1000.
Most of these cells have formulas in them. Here in regular English is
what I need to do... can someone write me a Macro that will do this?

Select (Highlight) the cells in range A6:X1000 wherein the data in
R6:1000 0

Unprotect the sheet with the password SFD

Sort the selected cells in Ascending order based on (the name in) B:6

Reprotect the sheet with the password SFD


Seems like it should be simple enough, but no matter what I try, I have
to manually enter the password. Can anyone help? Your assistance is
greatly appreciated.

JEN


--
Nebbish