set rng = range("A1").CurrentRegion

msgbox "number of columns: " & rng.columns.count

Not sure what you need beyond that.

Regards,
Tom Ogilvy

MC wrote in message
...
I am trying to setup a template file and need to
programmatically insert subtotals, but different users may
have more columns than others. The first 3 columns will
be the same for all users and the data will always be a
list with column names.

Any help would be appreciated.
MC