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
>
>