Sub Align()

Dim rng As Range, c As Range
'
Set rng = Range("e1:e1000")
For Each c In rng
If c 0 Then
c.Offset(0, -2).HorizontalAlignment = xlRight
Else
c.Offset(0, -2).HorizontalAlignment = xlLeft
End If
Next c
End Sub


HTH

"ED" wrote:

Posted incorrect question earier.

Try again




Code please to align wording in a cell such as:

For c = 1 to 1000
If cell Ec is greater than 0 the wording in cell Cc is aligned right,
other wise wording in cell Cc is aligned left.

Thanks in advance

Ed English