Workbooks.Open Filename error in a Macro

Benton · May 29th, 2009, 09:53 AM

Hi there,

My macro is opening workbook:" "INFRACHEM_POLYMERS.xls" : When i try to run it, it hits me with an error saying that this workbook can't be found.

Code:

Columns("A:B").Delete Shift:=xlToLeft
    Columns("A:B").EntireColumn.AutoFit
    Columns("B:D").Delete Shift:=xlToLeft
    Columns("B:H").Delete Shift:=xlToLeft
    Range("A3").Activate
    Rows("1:3").Delete Shift:=xlUp
    Rows("2:2").Delete Shift:=xlUp
    Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "=OFFSET([INFRACHEM_POLYMERS.xls]Sheet1!R1C1:R56C1,1,0)"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B59")
    Range("B2:B59").Select
    Columns("B:B").EntireColumn.AutoFit
    ActiveWindow.SmallScroll Down:=-3
    Workbooks.Open Filename:="INFRACHEM_POLYMERS.xls"
 
    End Sub

Shasur · May 29th, 2009, 09:58 AM

Hi

Can you try using the fullname (Path and File Name)

Workbooks.Open Filename:="c:\INFRACHEM_POLYMERS.xls"

Cheers
Shasur