for each wks in exApp.worksheets
lstcolumn = exApp.worksheets(wks.name).Range("A65536").end(-4162 ).row

next

--
Regards,
Tom Ogilvy


"sonu" wrote:

I want to control Excel from MS access. I created exapp object.
everyting woks right but I can use this following command. Any help is
really appreciated.

for each wks in exApp.worksheets
lstcolumn = exApp.worksheets(wks.name).Range("A65536").end(xlu p).row

next