Cycle Formatting

[ToWill]

Hi,

I have set up a bunch of custom formatting macros and mapped them to different hotkey/short cuts.

I was wondering if anyone knew a way of creating a new macro which would cycle through my different formatting types.

ie: ctrl-shift-up would change the font to blue, if ctrl-shift-up was pressed again it would change to red, and so forth.

Thank you for the help in advance. Any comments/pointers would be grateful.

 

[lrobbo314]

Welcome to the forum. Here is a simple version of what you are talking about. Running the 'Cycle' subroutine will change the text color of the current selection from red to blue to green.

Dim Current As Integer


Sub RedText()
Dim r As Range
Set r = Selection
r.Font.Color = vbRed
Current = 1
End Sub


Sub BlueText()
Dim r As Range
Set r = Selection
r.Font.Color = vbBlue
Current = 2
End Sub


Sub GreenText()
Dim r As Range
Set r = Selection
r.Font.Color = vbGreen
Current = 3
End Sub


Sub Cycle()
Dim AR(1 To 3)
AR(1) = "RedText"
AR(2) = "BlueText"
AR(3) = "GreenText"
Current = Current + 1
If Current > UBound(AR) Then Current = 1
Application.Run AR(Current)
End Sub