Code returning error 400

[reggie1000]

Hello,

I have the following code that opens a series of workbooks on a given day, however, if one of the workbooks has been renamed or is missing the code gives a "400" error and stops, is there a way of having the code retry the next workbook if it comes to an error?

Sub Auto_Open()
   Columns("P:AI").Select
    Selection.EntireColumn.Hidden = False
    ActiveWindow.SmallScroll Down:=39
    Range("B62").Select
Workbooks.Open Filename:="F:\DAILY FIGURES\DAILY FIGS 2009\" & Cells(2, 27) & "\" & Cells(3, 27) & ".xls"
 Workbooks.Open ("F:\Load List\P1 " & Cells(2, 20) & ".xls")
  Workbooks.Open ("F:\Load List\P3 " & Cells(2, 20) & ".xls")
  Workbooks.Open ("F:\Load List\RC " & Cells(2, 20) & ".xls")
  Workbooks.Open ("F:\Load List\P3 " & Cells(33, 20) & ".xls")
  Workbooks.Open ("F:\Load List\RC " & Cells(33, 20) & ".xls")
  Workbooks.Open ("F:\Load List\P1 " & Cells(33, 20) & ".xls")
  Workbooks.Open ("F:\Load List\P2 " & Cells(33, 20) & ".xls")
  Workbooks.Open ("F:\Load List\P2 " & Cells(2, 20) & ".xls")
  End Sub

Many thanks in advance reg

[Tarball]

Add in the line On Error Resume Next

This is not the best way to code but it will solve your issue. Instead you should think about configuring a way to change the name. One way I have done this is to have a configuration workbook that allows me to use a command button to locate files I want to open. Use the configuration workbook to then manage which workbooks get opened. In the event the workbook name changes you simply change the name accordingly in the configuration workbook

Sub Auto_Open()

On error resume next
   Columns("P:AI").Select
    Selection.EntireColumn.Hidden = False
    ActiveWindow.SmallScroll Down:=39
    Range("B62").Select
Workbooks.Open Filename:="F:\DAILY FIGURES\DAILY FIGS 2009\" & Cells(2, 27) & "\" & Cells(3, 27) & ".xls"
 Workbooks.Open ("F:\Load List\P1 " & Cells(2, 20) & ".xls")
  Workbooks.Open ("F:\Load List\P3 " & Cells(2, 20) & ".xls")
  Workbooks.Open ("F:\Load List\RC " & Cells(2, 20) & ".xls")
  Workbooks.Open ("F:\Load List\P3 " & Cells(33, 20) & ".xls")
  Workbooks.Open ("F:\Load List\RC " & Cells(33, 20) & ".xls")
  Workbooks.Open ("F:\Load List\P1 " & Cells(33, 20) & ".xls")
  Workbooks.Open ("F:\Load List\P2 " & Cells(33, 20) & ".xls")
  Workbooks.Open ("F:\Load List\P2 " & Cells(2, 20) & ".xls")
  End Sub

[reggie1000]

Thanks Tarball,

Its so simple and it works,

thanks for the help

Reg