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.