Run-time error on code when opening another spreadsheet

[jmazorra]

Hello:

I wrote the following code:

Private Sub cmbCareerPath_Change()

With Worksheets("FindPath")


.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("D:D"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal


With .Sort


.SetRange Range("A1:E50")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        
        End With
        
       
 End With
 
End Sub

It works great, however, if I open another spreadsheet (excel file), I get the following error:

Run-time error '9'

Subscript out of range

When I hit Debug, it goes to this line of code

With Worksheets("FindPath")

I am at a loss, any ideas why I get an error when opening a sheet?

 

[dmt32]

Hi,
try qualifying the Worksheet with the ThisWorkbook property

With ThisWorkbook.Worksheets("FindPath")

Dave

 

[jmazorra]

Thank you, that was a simple and elegant solution.

Hi,
try qualifying the Worksheet with the ThisWorkbook property

With ThisWorkbook.Worksheets("FindPath")

Dave