With Range(Cells(CurrentRow, 1), Cells(CurrentRow, 7))
.Locked = False
.FormulaHidden = False
End With
With Cells(CurrentRow, 9)
.Locked = False
.FormulaHidden = False
End With

--

HTH

RP
(remove nothere from the email address if mailing direct)


"bw" wrote in message
...
Consider the following:
Range(Cells(CurrentRow, 1), Cells(CurrentRow, 7)).Select
Selection.Locked = False
Selection.FormulaHidden = False
Cells(CurrentRow, 9).Select
Selection.Locked = False
Selection.FormulaHidden = False

Is there a way to combine the two select statements into just one?

Thanks,
Bernie