Help with error 400.

alfranco17

Board Regular
Joined
Apr 14, 2013
Messages
197
Hi.

I'll really appreciate any hints you can give me on this one.

I have the following code:

Code:
Sub PrepareFilesForReport()

    Dim v_expense As Workbook
    Dim v_template As Workbook
    
    ' Open template file.
    Set v_template = Workbooks.Add(Range("Template_Path"))
    
    ' Go back to the macro workbook so that the Range("expense_Path") is available
    ThisWorkbook.Activate
    
    ' Open expense file.
    Set v_expense = Workbooks.Open(Range("expense_Path"))
    
    ' Make sure the file we just opened is active.
    v_expense.Activate
    
    ' Move the only sheet that file has to the template.
    ActiveSheet.Move Before:=v_template.Sheets(1)
    
    ' Activate the template file (should be active already).
    v_template.Activate
    
    ' The following line produces error 400
    ActiveSheet.Name = "ExpenseSheet"
    
End Sub

It was working fine. Suddenly, there is a computer that shows the "Error 400" dialog box.

I tried to use:

Code:
v_template.ActiveSheet.Name = "ExpenseSheet"

It did not work either.

If I go to the immediate window, it shows me the activeworkbook is the right one, it gives me the name of the sheet, but as soon as I try to run the macro and change the name I get error 400.

If I test it in my computer, it works. I am running Excel 2016, in Enlish. The other computer is running Excel 2013, in Spanish. But it had not failed before.

Is there a way to make the code bullet-proof and avoid that error? Or any other solutions you may think of? I am in a loop right now.

Thanks.
Armando.
 

Excel Facts

Select all contiguous cells
Pressing Ctrl+* (asterisk) will select the "current region" - all contiguous cells in all directions.
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,163,982
Messages
5,834,690
Members
430,310
Latest member
Excelorate3305

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top