Very sloppy VBA code in workbook

g1terra

New Member
Joined
May 9, 2014
Messages
9
I have some code that simply hides rows on multiple identical sheets. the only issue I have is when i open the sheet it takes 30 seconds to open the file. I would like this file in NON XLSM format because when saving in this format it always asks to rename the file on save. Also this sheet will be used in Excel 2003.. When I created for just one sheet and used code cleaner it cleaned up the file and opened quickly. Now that i have the entore workbook together code cleaner does not help the loading on startup. I prefer not to calculate on save if i can avoid this as well. Any comments to steer a slightly better than novice in the right direction.
 

Excel Facts

Spell Check in Excel
Press F7 to start spell check in Excel. Be careful, by default, Excel does not check Capitalized Werds (whoops)
you could post your code for starters...AND..try saving it as a 97-2003 workbook with XLS extension.
Not that it should make any difference !!!
 
Upvote 0
you could post your code for starters...AND..try saving it as a 97-2003 workbook with XLS extension.
Not that it should make any difference !!!
I was wondering about the forced name change, that sounds like .xlst more than .xlsm. Or a Before_Colse/Save macro.
 
Last edited:
Upvote 0
Agreed...seemed a bit odd to me too...:confused:
 
Upvote 0
Ok you guys were correct. XLSM does work (opens quicker and doesn't force name change). Here is the code. I know its a mess. Its actually 5 different codes using a drop down to select macro but it does work.

Code:
'
' FOH_10_6 Macro
'


    
    Application.ScreenUpdating = False
    Set rng = ActiveCell
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    Sheets("P1").Select
    Range("B6").Select
    Sheets("P2").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    Range("B6").Select
    Sheets("P3").Select
    ActiveWindow.SmallScroll Down:=-3
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    Range("B6").Select
    Sheets("P4").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    Range("B6").Select
    Sheets("P5").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    Range("B6").Select
    Sheets("P6").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    Range("B6").Select
    Sheets("P7").Select
    ActiveWindow.SmallScroll Down:=-3
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    Range("B6").Select
    Sheets("P8").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    Range("B6").Select
    Sheets("P9").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    Range("B6").Select
    Sheets("P10").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    Sheets("P11").Select
    ActiveWindow.SmallScroll Down:=-3
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    Range("B6").Select
    Sheets("P10").Select
    Range("B6").Select
    Sheets("P12").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    Range("B6").Select
    Sheets("P1 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Range("C5").Select
    Sheets("P2 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Range("C5").Select
    Sheets("P3 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Range("C5").Select
    Sheets("P4 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Sheets("P4 Balance").Select
    Range("C5").Select
    Sheets("P5 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Range("C5").Select
    Sheets("P6 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Range("C5").Select
    Sheets("P7 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Range("C5").Select
    Sheets("P8 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Range("C5").Select
    Sheets("P9 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Range("C5").Select
    Sheets("P10 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Range("C5").Select
    Sheets("P11 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Range("C5").Select
    Sheets("P12 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Range("C5").Select
    Application.Goto rng
    Application.ScreenUpdating = True




End Sub


Sub FOH_8_6()
'
' FOH_8_6 Macro
'


'
    Application.ScreenUpdating = False
    Set rng = ActiveCell
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=60
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=27
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 239
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 190
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 170
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 146
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 122
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P2").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("27:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=48
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=63
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=48
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    ActiveWindow.ScrollRow = 270
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 220
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 206
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 186
    ActiveWindow.ScrollRow = 179
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 152
    ActiveWindow.ScrollRow = 145
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 52
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P3").Select
    ActiveWindow.SmallScroll Down:=-24
    ActiveWindow.ScrollRow = 255
    ActiveWindow.ScrollRow = 250
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 227
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 200
    ActiveWindow.ScrollRow = 181
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 110
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 1
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=51
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=60
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=24
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 247
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 217
    ActiveWindow.ScrollRow = 204
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 174
    ActiveWindow.ScrollRow = 161
    ActiveWindow.ScrollRow = 153
    ActiveWindow.ScrollRow = 144
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 115
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P4").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=48
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=0
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 206
    ActiveWindow.ScrollRow = 189
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 113
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P5").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=51
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=60
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=51
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=21
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 255
    ActiveWindow.ScrollRow = 250
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 224
    ActiveWindow.ScrollRow = 217
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 179
    ActiveWindow.ScrollRow = 170
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 155
    ActiveWindow.ScrollRow = 147
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P6").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=51
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=21
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 251
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 211
    ActiveWindow.ScrollRow = 201
    ActiveWindow.ScrollRow = 189
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 122
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P7").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=51
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=27
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 270
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 263
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 191
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P8").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=21
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=48
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=60
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=48
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    ActiveWindow.ScrollRow = 270
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 248
    ActiveWindow.ScrollRow = 232
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P9").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=21
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=48
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 235
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 213
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 186
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 150
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P10").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("27:32").Select
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=48
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 240
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 223
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 208
    ActiveWindow.ScrollRow = 201
    ActiveWindow.ScrollRow = 189
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P11").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=51
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=27
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 260
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 230
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 147
    ActiveWindow.ScrollRow = 137
    ActiveWindow.ScrollRow = 127
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P12").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=54
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=51
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=57
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=27
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 251
    ActiveWindow.ScrollRow = 244
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 230
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 206
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 168
    ActiveWindow.ScrollRow = 158
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 130
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P1 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Sheets("P1 Balance").Select
    Range("C5").Select
    Sheets("P2 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P3 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P4 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P5 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P6 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P7 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P8 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P9 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P10 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P11 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P12 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P12 Balance").Select
    Application.Goto rng
    Application.ScreenUpdating = True


End Sub
Sub FOH_8_5()
'
' FOH_8_5 Macro
'


'
    Application.ScreenUpdating = False
    Set rng = ActiveCell
    ActiveWindow.SmallScroll Down:=-3
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("23:26").Select
    ActiveWindow.SmallScroll Down:=3
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=18
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("102:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("158:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("214:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("270:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 218
    ActiveWindow.ScrollRow = 204
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 162
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 118
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P2").Select
    Rows("6:285").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=18
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("102:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("158:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("214:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("270:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 230
    ActiveWindow.ScrollRow = 221
    ActiveWindow.ScrollRow = 213
    ActiveWindow.ScrollRow = 206
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 192
    ActiveWindow.ScrollRow = 186
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 164
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 147
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 122
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P3").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("102:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=18
    Rows("158:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("214:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("270:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.ScrollRow = 273
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 254
    ActiveWindow.ScrollRow = 247
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 211
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 161
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 127
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P4").Select
    ActiveWindow.SmallScroll Down:=0
    Rows("6:287").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=9
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("102:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("158:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("214:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("270:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 263
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 250
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 223
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 152
    ActiveWindow.ScrollRow = 142
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 123
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P5").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=21
    Rows("102:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("158:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=18
    Rows("214:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("270:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=21
    ActiveWindow.ScrollRow = 272
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 250
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 217
    ActiveWindow.ScrollRow = 197
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 150
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P6").Select
    Rows("6:285").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=18
    Rows("102:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=18
    Rows("158:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("214:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("270:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 256
    ActiveWindow.ScrollRow = 247
    ActiveWindow.ScrollRow = 235
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 200
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 113
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P7").Select
    ActiveWindow.SmallScroll Down:=0
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=21
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("102:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("158:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=45
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("214:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("270:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 250
    ActiveWindow.ScrollRow = 241
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P8").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=21
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("102:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("158:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("214:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("270:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 254
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 151
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 110
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P9").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=45
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("102:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("158:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("214:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("270:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 263
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 250
    ActiveWindow.ScrollRow = 240
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P10").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("102:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=45
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("158:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("214:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("270:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 254
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 220
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 176
    ActiveWindow.ScrollRow = 167
    ActiveWindow.ScrollRow = 158
    ActiveWindow.ScrollRow = 150
    ActiveWindow.ScrollRow = 143
    ActiveWindow.ScrollRow = 136
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 116
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 74
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 62
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P11").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("102:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("158:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("214:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("270:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 239
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 104
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 75
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P12").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("29:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("46:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("85:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("102:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("141:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("158:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=45
    Rows("197:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("214:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("253:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("270:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 256
    ActiveWindow.ScrollRow = 250
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 222
    ActiveWindow.ScrollRow = 211
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 179
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 122
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=2
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    ActiveWindow.ScrollWorkbookTabs Sheets:=1
    Sheets("P1 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Rows("22:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P2 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Rows("22:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P3 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Rows("22:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P4 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Rows("22:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P5 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Rows("22:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P6 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Rows("22:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P7 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Rows("22:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P8 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = False
    Selection.EntireRow.Hidden = True
    Rows("22:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P9 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Rows("22:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P10 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Rows("22:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P11 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Rows("22:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P12 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("14:15").Select
    Selection.EntireRow.Hidden = True
    Rows("22:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Application.Goto rng
    Application.ScreenUpdating = True




End Sub
Sub FOH_7_4()
'
' FOH_7_4 Macro
'


'
    Application.ScreenUpdating = False
    Set rng = ActiveCell
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("27:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("83:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=27
    Rows("139:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("195:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("251:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 254
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 217
    ActiveWindow.ScrollRow = 201
    ActiveWindow.ScrollRow = 181
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 99
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P2").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("27:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("83:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("139:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("195:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("251:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.ScrollRow = 275
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 224
    ActiveWindow.ScrollRow = 201
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 152
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 64
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P3").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("27:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("83:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("139:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("195:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("251:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 262
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 240
    ActiveWindow.ScrollRow = 224
    ActiveWindow.ScrollRow = 208
    ActiveWindow.ScrollRow = 197
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 145
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 130
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P4").Select
    Rows("6:285").Select
    ActiveWindow.SmallScroll Down:=-9
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("27:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("83:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("139:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("195:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.SmallScroll Down:=12
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("251:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 263
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 228
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 201
    ActiveWindow.ScrollRow = 183
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P5").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("27:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("83:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("139:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=27
    Rows("195:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("251:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    ActiveWindow.ScrollRow = 262
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 191
    ActiveWindow.ScrollRow = 164
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 120
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P6").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("27:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("83:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("139:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("195:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("251:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 248
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 217
    ActiveWindow.ScrollRow = 193
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 87
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P7").Select
    Rows("13:284").Select
    ActiveWindow.ScrollRow = 281
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 277
    ActiveWindow.ScrollRow = 273
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 260
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 240
    ActiveWindow.ScrollRow = 225
    ActiveWindow.ScrollRow = 209
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 164
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 1
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("27:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("83:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("139:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("195:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("251:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.ScrollRow = 275
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 220
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 181
    ActiveWindow.ScrollRow = 161
    ActiveWindow.ScrollRow = 146
    ActiveWindow.ScrollRow = 130
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 92
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 69
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P8").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("27:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("83:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("139:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("195:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("251:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 254
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 213
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 127
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P9").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("27:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("83:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("139:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("195:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("251:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 241
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 174
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 135
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P10").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=9
    Rows("27:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("83:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("139:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("195:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("251:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 232
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P11").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("27:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("83:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("139:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("195:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("251:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 256
    ActiveWindow.ScrollRow = 250
    ActiveWindow.ScrollRow = 243
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 223
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 140
    ActiveWindow.ScrollRow = 122
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    Range("B6").Select
    Sheets("P12").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("27:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("83:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("139:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("195:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("251:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 262
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 246
    ActiveWindow.ScrollRow = 239
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 223
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 165
    ActiveWindow.ScrollRow = 152
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P1 Balance").Select
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("13:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P2 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("13:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("F32").Select
    Sheets("P3 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("13:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P4 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("13:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P5 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("13:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P6 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("13:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P7 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("13:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P8 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("13:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P9 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("13:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P10 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("13:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P11 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("13:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P12 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("13:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Application.Goto rng
    Application.ScreenUpdating = True


End Sub
Sub FOH_6_4()
'
' FOH_6_4 Macro
'


'
    Application.ScreenUpdating = False
    Set rng = ActiveCell
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("25:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("81:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("137:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("193:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=6
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("249:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 192
    ActiveWindow.ScrollRow = 170
    ActiveWindow.ScrollRow = 146
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 86
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P2").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=9
    Rows("25:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("81:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("137:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("193:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("249:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    ActiveWindow.ScrollRow = 250
    ActiveWindow.ScrollRow = 242
    ActiveWindow.ScrollRow = 231
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 204
    ActiveWindow.ScrollRow = 188
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 90
    ActiveWindow.ScrollRow = 81
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 48
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P3").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("25:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("81:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("137:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("193:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("249:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 254
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 237
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 213
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 163
    ActiveWindow.ScrollRow = 145
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P4").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("25:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("81:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("137:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("193:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("249:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 256
    ActiveWindow.ScrollRow = 238
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 189
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 82
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P5").Select
    ActiveWindow.SmallScroll Down:=-3
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("25:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("81:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("137:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("193:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("249:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=18
    ActiveWindow.ScrollRow = 278
    ActiveWindow.ScrollRow = 271
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 247
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 204
    ActiveWindow.ScrollRow = 178
    ActiveWindow.ScrollRow = 150
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P6").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("25:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("81:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("137:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("193:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("249:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 256
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 232
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 193
    ActiveWindow.ScrollRow = 167
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 105
    ActiveWindow.ScrollRow = 72
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P7").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("25:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("81:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("137:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("193:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("249:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.ScrollRow = 267
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 262
    ActiveWindow.ScrollRow = 260
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 227
    ActiveWindow.ScrollRow = 218
    ActiveWindow.ScrollRow = 208
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 179
    ActiveWindow.ScrollRow = 161
    ActiveWindow.ScrollRow = 138
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P8").Select
    Rows("13:38").Select
    ActiveWindow.SmallScroll Down:=-12
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("25:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("81:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("137:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("193:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("249:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=6
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 247
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 216
    ActiveWindow.ScrollRow = 197
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 153
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P9").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("25:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("81:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("137:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("193:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("249:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-84
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 150
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 142
    ActiveWindow.ScrollRow = 130
    ActiveWindow.ScrollRow = 121
    ActiveWindow.ScrollRow = 110
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 67
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 43
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P10").Select
    Rows("6:285").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=18
    Rows("25:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=27
    Rows("81:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("137:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("193:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("249:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    ActiveWindow.ScrollRow = 272
    ActiveWindow.ScrollRow = 265
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 239
    ActiveWindow.ScrollRow = 227
    ActiveWindow.ScrollRow = 210
    ActiveWindow.ScrollRow = 191
    ActiveWindow.ScrollRow = 175
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 139
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 113
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 93
    ActiveWindow.ScrollRow = 84
    ActiveWindow.ScrollRow = 77
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 55
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P11").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("25:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("81:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("137:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=42
    Rows("193:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("249:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 248
    ActiveWindow.ScrollRow = 204
    ActiveWindow.ScrollRow = 191
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 166
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 147
    ActiveWindow.ScrollRow = 136
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 44
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 24
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P12").Select
    ActiveWindow.SmallScroll Down:=0
    Rows("6:283").Select
    Selection.EntireRow.Hidden = True
    Rows("5:285").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("25:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("44:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("81:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("100:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("137:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("156:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=27
    Rows("193:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("212:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("249:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("268:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=21
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 276
    ActiveWindow.ScrollRow = 269
    ActiveWindow.ScrollRow = 260
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 235
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 199
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 152
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 108
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P1 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("12:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P2 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("12:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P3 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("12:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P4 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("12:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P5 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("12:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P6 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("12:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P7 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("12:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P8 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("13:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P9 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("12:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P10 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("12:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P11 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("12:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P12 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("12:15").Select
    Selection.EntireRow.Hidden = True
    Rows("21:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Application.Goto rng
    Application.ScreenUpdating = True




End Sub
Sub FOH_5_3()
'
' FOH_5_3 Macro
'


'
    Application.ScreenUpdating = False
    Set rng = ActiveCell
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("23:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("42:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("79:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("98:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=27
    Rows("135:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("154:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("191:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=6
    Rows("210:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("247:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("266:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=18
    ActiveWindow.ScrollRow = 278
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 259
    ActiveWindow.ScrollRow = 247
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 189
    ActiveWindow.ScrollRow = 177
    ActiveWindow.ScrollRow = 167
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 126
    ActiveWindow.ScrollRow = 119
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 101
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 91
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 68
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 56
    ActiveWindow.ScrollRow = 53
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 10
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P2").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=9
    Rows("23:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("42:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=27
    Rows("79:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("98:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("135:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("154:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("191:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("210:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("247:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("266:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 253
    ActiveWindow.ScrollRow = 241
    ActiveWindow.ScrollRow = 224
    ActiveWindow.ScrollRow = 204
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 109
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 71
    ActiveWindow.ScrollRow = 57
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 26
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P3").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("23:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=6
    Rows("42:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=39
    Rows("79:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("98:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("135:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("154:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("191:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("210:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("247:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=6
    Rows("266:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 272
    ActiveWindow.ScrollRow = 258
    ActiveWindow.ScrollRow = 246
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 218
    ActiveWindow.ScrollRow = 194
    ActiveWindow.ScrollRow = 170
    ActiveWindow.ScrollRow = 142
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 95
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 46
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    ActiveWindow.SmallScroll Down:=-6
    Sheets("P4").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("23:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("42:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("79:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("98:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("135:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("154:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("191:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("210:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("247:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("266:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 274
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 229
    ActiveWindow.ScrollRow = 207
    ActiveWindow.ScrollRow = 182
    ActiveWindow.ScrollRow = 156
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 61
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 15
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 3
    Range("B6").Select
    Sheets("P5").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=15
    Rows("23:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("42:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=24
    Rows("79:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("98:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=24
    Rows("135:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("154:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("191:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=6
    Rows("210:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("247:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("266:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 270
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 251
    ActiveWindow.ScrollRow = 236
    ActiveWindow.ScrollRow = 219
    ActiveWindow.ScrollRow = 195
    ActiveWindow.ScrollRow = 169
    ActiveWindow.ScrollRow = 142
    ActiveWindow.ScrollRow = 113
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P6").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("23:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("42:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("79:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=6
    Rows("98:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("135:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("154:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("191:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("210:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("247:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("266:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=6
    ActiveWindow.ScrollRow = 263
    ActiveWindow.ScrollRow = 255
    ActiveWindow.ScrollRow = 245
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 220
    ActiveWindow.ScrollRow = 202
    ActiveWindow.ScrollRow = 180
    ActiveWindow.ScrollRow = 159
    ActiveWindow.ScrollRow = 134
    ActiveWindow.ScrollRow = 112
    ActiveWindow.ScrollRow = 96
    ActiveWindow.ScrollRow = 83
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P7").Select
    ActiveWindow.SmallScroll Down:=0
    Rows("6:286").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=9
    Rows("23:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("42:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=27
    Rows("79:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("98:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("135:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("154:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("191:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("210:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("247:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("266:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=18
    ActiveWindow.ScrollRow = 279
    ActiveWindow.ScrollRow = 273
    ActiveWindow.ScrollRow = 266
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 244
    ActiveWindow.ScrollRow = 226
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 183
    ActiveWindow.ScrollRow = 157
    ActiveWindow.ScrollRow = 128
    ActiveWindow.ScrollRow = 102
    ActiveWindow.ScrollRow = 76
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 29
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P8").Select
    Rows("6:283").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("23:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("42:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("79:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("98:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=27
    Rows("135:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("154:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("191:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("210:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("247:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("266:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=21
    ActiveWindow.ScrollRow = 278
    ActiveWindow.ScrollRow = 270
    ActiveWindow.ScrollRow = 261
    ActiveWindow.ScrollRow = 249
    ActiveWindow.ScrollRow = 233
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 187
    ActiveWindow.ScrollRow = 161
    ActiveWindow.ScrollRow = 132
    ActiveWindow.ScrollRow = 106
    ActiveWindow.ScrollRow = 79
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P9").Select
    Rows("6:285").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("23:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("42:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("79:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("98:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("135:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("154:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("191:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("210:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=24
    Rows("247:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("266:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=21
    ActiveWindow.ScrollRow = 280
    ActiveWindow.ScrollRow = 273
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 252
    ActiveWindow.ScrollRow = 235
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 191
    ActiveWindow.ScrollRow = 170
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 129
    ActiveWindow.ScrollRow = 111
    ActiveWindow.ScrollRow = 97
    ActiveWindow.ScrollRow = 88
    ActiveWindow.ScrollRow = 78
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 63
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 49
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 40
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 32
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 8
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P10").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("23:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("42:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("79:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=15
    Rows("98:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("135:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("154:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=24
    Rows("191:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("210:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("247:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("266:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    ActiveWindow.ScrollRow = 264
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 239
    ActiveWindow.ScrollRow = 227
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 184
    ActiveWindow.ScrollRow = 173
    ActiveWindow.ScrollRow = 160
    ActiveWindow.ScrollRow = 149
    ActiveWindow.ScrollRow = 141
    ActiveWindow.ScrollRow = 133
    ActiveWindow.ScrollRow = 124
    ActiveWindow.ScrollRow = 115
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 98
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 73
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 58
    ActiveWindow.ScrollRow = 51
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 41
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 30
    ActiveWindow.ScrollRow = 21
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 18
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 13
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P11").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=9
    Rows("23:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("42:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("79:89").Select
    ActiveWindow.SmallScroll Down:=3
    Rows("79:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("98:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("135:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("154:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("191:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("210:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=30
    Rows("247:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("266:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    ActiveWindow.ScrollRow = 268
    ActiveWindow.ScrollRow = 257
    ActiveWindow.ScrollRow = 234
    ActiveWindow.ScrollRow = 212
    ActiveWindow.ScrollRow = 185
    ActiveWindow.ScrollRow = 154
    ActiveWindow.ScrollRow = 125
    ActiveWindow.ScrollRow = 100
    ActiveWindow.ScrollRow = 80
    ActiveWindow.ScrollRow = 66
    ActiveWindow.ScrollRow = 54
    ActiveWindow.ScrollRow = 45
    ActiveWindow.ScrollRow = 38
    ActiveWindow.ScrollRow = 33
    ActiveWindow.ScrollRow = 22
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 17
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 11
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 6
    ActiveWindow.ScrollRow = 5
    ActiveWindow.ScrollRow = 4
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P12").Select
    Rows("6:284").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=12
    Rows("23:32").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("42:47").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("79:88").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("98:103").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=27
    Rows("135:144").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("154:159").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=36
    Rows("191:200").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=9
    Rows("210:215").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=33
    Rows("247:256").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=12
    Rows("266:271").Select
    Selection.EntireRow.Hidden = True
    ActiveWindow.SmallScroll Down:=-36
    ActiveWindow.ScrollRow = 215
    ActiveWindow.ScrollRow = 207
    ActiveWindow.ScrollRow = 198
    ActiveWindow.ScrollRow = 186
    ActiveWindow.ScrollRow = 170
    ActiveWindow.ScrollRow = 150
    ActiveWindow.ScrollRow = 131
    ActiveWindow.ScrollRow = 107
    ActiveWindow.ScrollRow = 85
    ActiveWindow.ScrollRow = 65
    ActiveWindow.ScrollRow = 47
    ActiveWindow.ScrollRow = 37
    ActiveWindow.ScrollRow = 27
    ActiveWindow.ScrollRow = 19
    ActiveWindow.ScrollRow = 12
    ActiveWindow.ScrollRow = 7
    ActiveWindow.ScrollRow = 1
    Range("B6").Select
    Sheets("P1 Balance").Select
    ActiveWindow.ScrollWorkbookTabs Position:=xlLast
    ActiveWindow.ScrollWorkbookTabs Sheets:=-1
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("11:15").Select
    Selection.EntireRow.Hidden = True
    Rows("19:19").RowHeight = 20.25
    Rows("20:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P2 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("11:15").Select
    Selection.EntireRow.Hidden = True
    Rows("20:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P3 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("11:15").Select
    Selection.EntireRow.Hidden = True
    Rows("20:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P4 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("11:15").Select
    Selection.EntireRow.Hidden = True
    Rows("20:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P5 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("11:15").Select
    Selection.EntireRow.Hidden = True
    Rows("20:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P6 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("11:15").Select
    Selection.EntireRow.Hidden = True
    Rows("20:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P7 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("11:15").Select
    Selection.EntireRow.Hidden = False
    Selection.EntireRow.Hidden = True
    Rows("20:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P8 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("11:15").Select
    Selection.EntireRow.Hidden = True
    Rows("20:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P9 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("11:15").Select
    Selection.EntireRow.Hidden = True
    Rows("20:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P10 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("11:15").Select
    Selection.EntireRow.Hidden = True
    Rows("20:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P11 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("11:15").Select
    Selection.EntireRow.Hidden = True
    Rows("20:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Sheets("P12 Balance").Select
    Rows("5:23").Select
    Selection.EntireRow.Hidden = False
    Rows("11:15").Select
    Selection.EntireRow.Hidden = True
    Rows("20:22").Select
    Selection.EntireRow.Hidden = True
    Range("C5").Select
    Application.Goto rng
    Application.ScreenUpdating = True


End Sub
 
Last edited by a moderator:
Upvote 0
You can shorten up your code considerably. The Macro Record records every single action literally, and they can often be simplified.

For example, it is usually not necessary to select ranges before accessing and working with them. Selecting them can actually slow your code down.
So, most of the lines where one ends in "SELECT" and next starts with "SELECTION" or "ACTIVECELL" can be combined, i.e.
this:
Code:
[COLOR=#333333]Rows("6:283").Select[/COLOR]
[COLOR=#333333]Selection.EntireRow.Hidden = False[/COLOR]
can be combined to just this:
Code:
[COLOR=#333333]Rows("6:283").[/COLOR][COLOR=#333333]EntireRow.Hidden = False[/COLOR]

Also, you can get rid of all Scroll rows like this:
Code:
[COLOR=#333333]ActiveWindow.ScrollRow = 1[/COLOR]
That is just recorded lines from you scrolling on your worksheet, and have no impact on what the code does. They are unnecessary and can be removed.
 
Upvote 0
A bug chunk of the first macro might be recoded as

Code:
Sub HOW_ABOUT()

    Sheets(Array("P1", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11")).Select
    Sheets("P1").Activate
    Rows("6:283").EntireRow.Hidden = False

End Sub

just select the pages and then perform the same action on all the selections, just remember to select a single sheet once done
 
Upvote 0
These are great tips! I was using the code recorder. When I 1st tried it (selecting multiple sheets) the macro only worked on one sheet.
 
Upvote 0
If you want to loop through sheets you will need to create the loop manually
Something like

Code:
dim ws as worksheet
for each worksheet in worksheets

'your code

next ws

But if you clean up the code as suggested we may be able to help you add the lloping
 
Upvote 0

Forum statistics

Threads
1,213,510
Messages
6,114,037
Members
448,543
Latest member
MartinLarkin

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top