Option Explicit
Sub Format1()
' Format1 Macro
' Macro recorded 8/9/2010 by mrvba.blogspot.com
'
Range("B2:D4").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ActiveWindow.SmallScroll Down:=18 ‘To scroll down
Range("B20:D22").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
ActiveWindow.SmallScroll Down:=-30 ‘To scroll up
Range("A1").Select
End Sub
Actually the above code was recorded base on the step below:
Sub Format1()
' Format1 Macro
' Macro recorded 8/9/2010 by mrvba.blogspot.com
'
Range("B2:D4").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
ActiveWindow.SmallScroll Down:=18 ‘To scroll down
Range("B20:D22").Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
ActiveWindow.SmallScroll Down:=-30 ‘To scroll up
Range("A1").Select
End Sub
- Select Range (B2 and D4)
- Fill this range with yellow colored
- Scroll down
- Select Range (B20 and D22)
- Fill this range with red colored
- Scroll up
- Select Range A1
No comments:
Post a Comment