the below will give you the column number of the last entry in Row 1

lngLastCol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

If this post helps click Yes
---------------
Jacob Skaria


"NDBC" wrote:

I need to find the column number of the last entry in a row. I tried this but
it doesn't seem to work

MaxA = Sheets("A Grade").Cells(Columns.Count, "5").End(xlLeft).Column

I'm trying to find the column address of the last entry in the 5th row down.

Thanks