Other

Limiting the Scroll Area

Sheets("Sheet1").ScrollArea = "A1:E400" 
Sheets("Sheet1").ScrollArea = "" 
Worksheets("Sheet1").UsedRange 

An alternative is to delete all the other rows and columns, hide row & col headers and then protect the worksheet

Sheets("Sheet1").Range("D4").Select 
Sheet1.Range("A2").Select 
icount = ActiveWorksheet.Sheets.Count       - returns the total number of sheets (inc Chart sheets) in the active workbook 

Remove all values on a worksheet just leaving the formulas

Cells.SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents 

For Each Item In Windows 
   If Item.Visible = False Then 
   End If 
Next Item