Find last cell containing a value in a row

[sidsmot]

I am trying to write a macro that will allow an undo. With a selected cells loop i want to find the last cell in each row of the selected cells.
cell.End(xlToRight).Column works fine unless there is an empty cell part way along the row, in which case it selects the cell to the left of the blank. Is there a way to find the rightmost column ignoring blanks?
Thx

[Brian]

You can also search VB help for usedrange (or rangeused?), but that would be the futhermost column used in the spreadsheet, which is probably not what you want.

Search this board for last cell in column and you'll find various VB and equations to return the value or row of the last used cell in a column. You could adapt to rows.

[Jay Petrulis]

Hi,

At least a couple of ways through code.

With ActiveSheet
.UsedRange
LastCol = .Cells.SpecialCells(xlCellTypeLastCell).Column
LastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
End With

or 

LastCol = Range("IV1").End(xlToLeft).Column

I also threw in the last row on the first one.

HTH,
Jay

[sidsmot]

Cheers guys - Jay those specialcells do the trick!! many thanks - sid