Object Error, Merge cells and Sheet rename.

**JapanDave** · 08-25-2011, 08:17 PM

I am getting 2 object errors within the below code,

Please Login or Register  to view this content.

The first one is with the merge cell command on the 22 row,

Please Login or Register  to view this content.

The second one is on the 35 row in this part of the code, the error is the last line of the below code.

Please Login or Register  to view this content.

I have uploaded a demo file with any sensitive info removed. Also forgive everything being in Japanese. Any help would be very much appreciated.

Cheers

**MarvinP** · 08-25-2011, 11:36 PM

Hi Japan Dave,

First - always have Option Explicit as the first line of your code. Then you will need to Dim all variables. When I did that it said that WSCount was not defined.

WSCont <> WSCount (Is this your second error?)

Look at the Copy... Destination:= Syntax. You may need Workbook.Worksheet.Range to do it correctly.

I remember needing ActiveWorkbook or ActiveSheet in destination part.

**JapanDave** · 08-26-2011, 12:00 AM

Hey Marvin,

I will look into "Option Explicit " as I don't know how to use it yet.

And my second mistake was the last line, sorry that was a typo. Even when I fixed the typo I get stuck on that last line of code when renaming the sheet.

The funny thing is that I have been using similar code on a different worbook and now it has stopped working to. I am a little confused about that.