I am using the code at http://www.vbaexpress.com/kb/archive.php/k-743.html
to change the color of some text in an Excel 2003 spreadsheet.

Here is how I am generating the range object specifier:

ActiveCell.Offset(0, 1) = "TopLine" & vbLf & "BottomLine"
ActiveCell.Offset(0, 1).Font.Color = vbBlack

'Call xlCellTextMgmt(Range("K20"), "TopLine", , , , , 3)
Call xlCellTextMgmt(ActiveCell(0, 1), "TopLine", , , , , 3)

When I submit Range("K20") to xlCellTextMgmt, nothing happens. When I
submit ActiveCell(0, 1) instead, all is fine. I know that they refer
to the same cell because the first two lines populate that cell.

Thanks for any debugging suggestions....Been banging at it for a while.

The only way I see there being a difference if there was merged cells. I
cell a1: and B1 were merged together accessing B1 would give an error while
Range("A1").offset(0,1) would give C1.

"(E-Mail Removed)" wrote:

> I am using the code at http://www.vbaexpress.com/kb/archive.php/k-743.html
> to change the color of some text in an Excel 2003 spreadsheet.
>
> Here is how I am generating the range object specifier:
>
> ActiveCell.Offset(0, 1) = "TopLine" & vbLf & "BottomLine"
> ActiveCell.Offset(0, 1).Font.Color = vbBlack
>
> 'Call xlCellTextMgmt(Range("K20"), "TopLine", , , , , 3)
> Call xlCellTextMgmt(ActiveCell(0, 1), "TopLine", , , , , 3)
>
> When I submit Range("K20") to xlCellTextMgmt, nothing happens. When I
> submit ActiveCell(0, 1) instead, all is fine. I know that they refer
> to the same cell because the first two lines populate that cell.
>
> Thanks for any debugging suggestions....Been banging at it for a while.
>

Actually, I found the problem. I supplied indices (0,1) to ActiveCell
rather than ActiveCell.Offset. Amazing what a new day can do.

Thanks!

On Jun 2, 9:02*pm, Joel <J...@discussions.microsoft.com> wrote:
> The only way I see there being a difference if there was merged cells. *I
> cell a1: and B1 were merged together accessing B1 would give an error while
> Range("A1").offset(0,1) would give C1.
>
> > I am using the code athttp://www.vbaexpress.com/kb/archive.php/k-743.html
> > to change the color of some text in an Excel 2003 spreadsheet.
>
> > Here is how I am generating the range object specifier:
>
> > ActiveCell.Offset(0, 1) = "TopLine" & vbLf & "BottomLine"
> > ActiveCell.Offset(0, 1).Font.Color = vbBlack
>
> > 'Call xlCellTextMgmt(Range("K20"), "TopLine", , , , , 3)
> > Call xlCellTextMgmt(ActiveCell(0, 1), "TopLine", , , , , 3)
>
> > When I submit Range("K20") to xlCellTextMgmt, nothing happens. *When I
> > submit ActiveCell(0, 1) instead, all is fine. *I know that they refer
> > to the same cell because the first two lines populate that cell.
>
> > Thanks for any debugging suggestions....Been banging at it for a while.