Are you looking for

Cells(1, 1).Locked = False
Rows("2:" & Rows.Count).Hidden = True
Range(Columns(2), Columns(Columns.Count)).EntireColumn.Hidden = True
ActiveSheet.Protect

If this post helps click Yes
---------------
Jacob Skaria


"Pat" wrote:

I can write a macro that gets the last cell and figures out the ranges of
rows and columns that do not play but is there an easier way to do this?
Pat