Range does not work
 

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.

Range does not work
 

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.