VBA Code works on TSR sheet but exact code does not work on FSL sheet

[martinrall]

Sheets both have the same number of columns and same type of data FSL throws a 400. How could this be?

'TSR
Set wb1 = Workbooks.Open(mypath)
    wb1.Sheets("TSR").Columns("AB:AB").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    wb1.Sheets("TSR").Columns("AC:AC").Select
    Selection.Copy
    wb1.Sheets("TSR").Columns("AB:AB").Select
    wb1.Sheets("TSR").Paste
    wb1.Sheets("TSR").Columns("AC:AC").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    wb1.Sheets("TSR").Columns("AC:AC").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
     
'FSL
    wb1.Sheets("FSL-PARTS DROPS - CORE").Columns("AB:AB").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    wb1.Sheets("FSL-PARTS DROPS - CORE").Columns("AC:AC").Select
    Selection.Copy
    wb1.Sheets("FSL-PARTS DROPS - CORE").Columns("AB:AB").Select
    wb1.Sheets("FSL-PARTS DROPS - CORE").Paste
    wb1.Sheets("FSL-PARTS DROPS - CORE").Columns("AC:AC").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    wb1.Sheets("FSL PARTS DROPS").Columns("AC:AC").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFr

omLeftOrAbove
[/CODE]

 

[martinrall]

Sheets both have the same number of columns and same type of data FSL throws a 400. How could this be?

'TSR
Set wb1 = Workbooks.Open(mypath)
    wb1.Sheets("TSR").Columns("AB:AB").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    wb1.Sheets("TSR").Columns("AC:AC").Select
    Selection.Copy
    wb1.Sheets("TSR").Columns("AB:AB").Select
    wb1.Sheets("TSR").Paste
    wb1.Sheets("TSR").Columns("AC:AC").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    wb1.Sheets("TSR").Columns("AC:AC").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    
'FSL
    wb1.Sheets("FSL-PARTS DROPS - CORE").Columns("AB:AB").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    wb1.Sheets("FSL-PARTS DROPS - CORE").Columns("AC:AC").Select
    Selection.Copy
    wb1.Sheets("FSL-PARTS DROPS - CORE").Columns("AB:AB").Select
    wb1.Sheets("FSL-PARTS DROPS - CORE").Paste
    wb1.Sheets("FSL-PARTS DROPS - CORE").Columns("AC:AC").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    wb1.Sheets("FSL PARTS DROPS").Columns("AC:AC").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFr

omLeftOrAbove
[/CODE]

i fixed the last sheet reference to FSL-PARTS DROPS - CORE