Can anyone help?


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

One way:

Dim c As Long
For c = 1 To 1000
Cells(c, 3).HorizontalAlignment = _
IIf(Cells(c, 5).Value 0, xlRight, xlLeft)
Next c



,
ED wrote:

Can anyone help?


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

Works well.

Thank you,

Ed English


On Mon, 15 Aug 2005 15:50:18 -0600, JE McGimpsey
wrote:

One way:

Dim c As Long
For c = 1 To 1000
Cells(c, 3).HorizontalAlignment = _
IIf(Cells(c, 5).Value 0, xlRight, xlLeft)
Next c



,
ED wrote:

Can anyone help?


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