Conditional formatting: alignment (Excel 97 SR2)

Topic

New Reply

I want to format a column of cells so that they alternate left and right text alignment. Can anyone help?
Clark

Reply | Quote

Replies

This macro will alternate the alignment of the current selection:

Public Sub SetAlign()
Dim oCell As Range
    For Each oCell In Selection
        If oCell.Row Mod 2 = 0 Then
            oCell.HorizontalAlignment = xlHAlignLeft
        Else
            oCell.HorizontalAlignment = xlHAlignRight
        End If
    Next oCell
End Sub

Reply | Quote

Thanks very much!

Reply | Quote