Baffled why the following code doesn't work.

ActiveWorkbook.Sheets("XXXX ").Activate
Sheets("XXXX").Select
ActiveSheet.Range("A7").Select
ActiveCell.EntireRow.Insert



Thanks in advance for any explaination

What's your definition of "doesn't work" ?

When I rename 2 sheets in my workbook, one XXXX and the other XXXX and a space
all 4 lines of code execute as expected for me.

What I have discovered is that this code works and then doesn't work. By work. I mean not getting an error. Thank you for your reply, because now I now that the code is good and there is some other issue. I have googled and found another person has had the same problem.

Out of curiosity, what does the debugger message say the error is ?

insert method of range class failed

I'm not able to setup anything that will produce that error. My gut feeling was merged cells could cause this, but apparently not.
Googling seems to indicate others with 'Method of range class failed' errors manage to eliminate the error issue by not using .Select, which is seldom necessary anyway. In your case
would suffice. Don't know if this will help or not, it's just a thought.

Maybe post a sample workbook with the code to show it not working as you would expect.

NoSparks

THANKS .

APPRECIATE YOU INPUTS