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





© 2019 Better Solutions Limited. All Rights Reserved. © 2019 Better Solutions Limited TopPrevNext