Hi Mark,

Try:

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


---
Regards,
Norman



"Mark Stephens" wrote in message
...
I know how to count rows:

lgLastRow = Workbooks(2).Sheets(pbFundSheetNo).Cells(Rows.Coun t,
"A").End(xlUp).Row

Can the same code be adapted to count the number of used columns?

Thanks, Mark