Sub CLEAR11111()
'
' CLEAR TOPOUT
'
'UNPROTECT
Dim IsProtected As Boolean
IsProtected = ActiveSheet.ProtectContents
If IsProtected Then
ActiveSheet.Unprotect
End If
'CLEAR
Dim StartRow&, EndRow&
With Range(ActiveSheet.ScrollArea)
StartRow = .Row: EndRow = .Rows.Count + .Row - 1
End With
Range(Cells(StartRow, (Sheets("POINTS").Range("EI108").Value)), Cells(EndRow, (Sheets("POINTS").Range("EI109").Value))).ClearContents
'CELL CURSOR SELECT
Dim CRng As Object, Cell As Object
Set CRng = Application.Intersect(Range(ActiveSheet.ScrollArea), Columns([POINTs!ei108]))
CRng.Select
For Each Cell In CRng
If Cell.Locked = False Then
Cell.Select
Exit Sub
End If
'PROTECT
If IsProtected Then
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End If
Next Cell
End Sub