Alignment

[ED]

Posted incorrect question earier.

Try again




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

 

[Guest]

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