Sub hidenonused()
With Range("a1:b12")
lr = .Rows.count + 1
'MsgBox lr
lc = .Columns.count + 1
'MsgBox lc
'MsgBox Columns.count
End With
Rows(lr & ":" & Rows.count).Hidden = True
Range(Cells(1, lc), Cells(1, Columns.count)).EntireColumn.Hidden = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"ranswert" wrote in message
...
How do I write a procedure that will hide the worksheet except for a
certain
range of cells?