Vacuum Sealed has brought this to us :
One of the many way-more talented NG contributors may have a better layout to
suggest, in the meantime you could try it this way and see if it improves.

Well, I gave it a go...

Sub Macro126()

Application.ScreenUpdating = False
With Range("B2:G136")
.ClearContents
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With

With Sheets("Overall Scores")
.Range("B2:G136").Copy Destination:=Sheets("Sheet3").Range("A4")
Application.CutCopyMode = False
Call Macro128
End Sub


Sub Macro128()
'
' Macro128 Macro
'
Application.DisplayFullScreen = True
ActiveWindow.ScrollRow = 4
Application.Wait _
TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
ActiveWindow.ScrollRow = 18
Application.Wait _
TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
ActiveWindow.ScrollRow = 33
Application.Wait _
TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
ActiveWindow.ScrollRow = 48
Application.Wait _
TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
ActiveWindow.ScrollRow = 63
Application.Wait _
TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
ActiveWindow.ScrollRow = 78
Application.Wait _
TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
ActiveWindow.ScrollRow = 93
Application.Wait _
TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
ActiveWindow.ScrollRow = 108
Application.Wait _
TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
ActiveWindow.ScrollRow = 123
Application.Wait _
TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
ActiveWindow.ScrollRow = 138
Application.Wait _
TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
ActiveWindow.ScrollRow = 1
Application.ScreenUpdating = True
End Sub

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc