Dear Mike,

Thankyou for this, it worked perfectly, very much appreciated

Regards
Matt

"Mike H" wrote:

Hi,

Right click your sheet tab, view code and paste this in and run it

Sub marine()
For x = 1 To 9
If x Mod 2 = 0 Then
Columns(x).Font.ColorIndex = 41
Else
Columns(x).Font.ColorIndex = 3
End If
Next
End Sub

Mike

"matt3542" wrote:

Dear Forum,

As a complete novice to VBA I would appreciate any advice/solutions to help
solve the following problem;

I have 9 columns of numerical data (A to I) and I would like to use VBA code
to alternate the font colours in each column from red to blue moving left to
right.

As always any help is gratefully received
Thanks
Matt