ColNum = Cells(1,Columns.Count).End(xlLeft).Column

HTH

Bob


"Rob" wrote in message
...
Hi,

I have used a similar piece of code to find the last row of data by going
to the last row in the sheet and then moving up to the last row containing
data. I want to do the same albeit go to the far most column then go left
to fing the last column with data.

Cells(1,Columns.Count).Select takes me to the last column but adjusting to
the below, just errors.

dim ColNum as Single
ColNum = Cells(1,Columns.Count).End(xlLeft).Select

Any pointers most welcome. Rob