Since you're writing about wording, are you using e1 to control another cell?

If yes, how about something like:

Option Explicit
Sub testme01()

Dim myCell As Range
Dim myRng As Range

With ActiveSheet
Set myCell = .Range("e1")
Set myRng = .Range("f1")
End With

If myCell.Value > 0 Then
myRng.HorizontalAlignment = xlRight
Else
myRng.HorizontalAlignment = xlLeft
End If

End Sub



ED wrote:
>
> Code please to align wording in a cell such as:
>
> If cell E1 is greater than 0 the wording in cell is aligned right,
> other wise wording in cell is aligned left.
>
> Thanks in advance
>
> Ed English

--

Dave Peterson