lst_clm = exApp.worksheets(wks.Name).Range("IV1").end(-4159).Column
exApp.worksheets(wks.Name).Rows("1:5").insert
exApp.worksheets(wks.Name).Range(cells(1, 1), cells(5,
lst_clm)).merge

I get error at the last line. it says sub or function not defined. I am
controling excel from MSAccess by creating exApp as excel application
object.

Never mind i fixed it by using exApp again befroe cells.
lst_clm = exApp.worksheets(wks.Name).Range("IV1").end(-4159).Column
exApp.worksheets(wks.Name).Rows("1:5").insert
exApp.worksheets(wks.Name).Range(exApp.cells(1, 1),
exApp.cells(5, lst_clm)).merge

sonu wrote:
lst_clm = exApp.worksheets(wks.Name).Range("IV1").end(-4159).Column
exApp.worksheets(wks.Name).Rows("1:5").insert
exApp.worksheets(wks.Name).Range(cells(1, 1), cells(5,
lst_clm)).merge

I get error at the last line. it says sub or function not defined. I am
controling excel from MSAccess by creating exApp as excel application
object.