Method ‘Range’ of object ‘_Global’ failed

Michael_2025 

Does this work?

Sub SortImportedCSV()
' Step 2
    Dim w As Worksheet
    Dim t As ListObject
    Set w = ActiveWorkbook.Worksheets("Sheet1")
    Set t = w.ListObjects("rsStaffTechActivity")
    With t.Sort
        .SortFields.Clear
        .SortFields.Add2 _
            Key:=w.Range("rsStaffTechActivity[Participant]"), _
            SortOn:=xlSortOnValues, _
            Order:=xlAscending, _
            DataOption:=xlSortNormal
        .SortFields.Add2 _
            Key:=w.Range("rsStaffTechActivity[Case_Note_Date]"), _
            SortOn:=xlSortOnValues, _
            Order:=xlAscending, _
            DataOption:=xlSortNormal
        .SortFields.Add2 _
            Key:=w.Range("rsStaffTechActivity[Activity_Provided_Desc]"), _
            SortOn:=xlSortOnValues, _
            Order:=xlDescending, _
            DataOption:=xlSortNormal
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub