-
Notifications
You must be signed in to change notification settings - Fork 0
/
Reformat
29 lines (29 loc) · 803 Bytes
/
Reformat
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Reformat()
Application.ScreenUpdating = False
For Each sh In Worksheets
If sh.Name <> "INDEX" And sh.Name <> "TITLE LIST" And sh.Name <> "REFORMAT" And sh.Name <> "#" And sh.Name <> "##" Then
sh.Activate
Dim lRow As Long
Dim iCntr As Long
lRow = 45
For iCntr = lRow To 19 Step -1
If Trim(Cells(iCntr, 1)) = "" Then
Rows(iCntr).Delete
End If
Next
Range("A19:L45").Select
Selection.Value = Selection.Value
Range("K3:L4").Select
Selection.ClearContents
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Rows("4:16").Select
Selection.Delete Shift:=xlUp
x = ActiveSheet.UsedRange.Rows.Count
Columns("A").Hidden = True
Columns("G").Hidden = True
End If
Next sh
Application.ScreenUpdating = True
MsgBox ("Done! Sheets ready to check.")
End Sub