zzzjoshzzz
New Member
- Joined
- Apr 27, 2014
- Messages
- 23
One thing, I'm trying to apply it to multiple sheets but right now I can only get it to work with one:
Sub forEachWs()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Call DeleteExtraRowsAndColumns(ws)
Next
ActiveWorkbook.Save
End Sub
Sub DeleteExtraRowsAndColumns(ws As Worksheet)
With ws
ActiveSheet.Unprotect Password:="benefits"
ActiveCell.Select
Range(Rows(500), Rows(Rows.Count)).Clear
Range(Columns(500), Columns(Columns.Count)).Clear
ActiveSheet.Protect Password:="benefits"
End With
End Sub
Sub forEachWs()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
Call DeleteExtraRowsAndColumns(ws)
Next
ActiveWorkbook.Save
End Sub
Sub DeleteExtraRowsAndColumns(ws As Worksheet)
With ws
ActiveSheet.Unprotect Password:="benefits"
ActiveCell.Select
Range(Rows(500), Rows(Rows.Count)).Clear
Range(Columns(500), Columns(Columns.Count)).Clear
ActiveSheet.Protect Password:="benefits"
End With
End Sub