Я в недоумении - у меня несколько таблиц в базе данных, но вот в чем проблема: Сортировку одних программа выполняет без приреканий, а сортировку других (несколько отличных по структуре) нет - выдает ошибку 1004

Вот текст процедуры сортировки...

Dim i As Integer
i = Worksheets(1).Cells(1, 50).Value
Worksheets(1).Range(Cells(6, 2), Cells(6 + i - 2, 17)).Sort _
Key1:=Worksheets(1).Range(Cells(6, 17), Cells(6 + i - 2, 17)), _
Order1:=xlAscending

Спасибо за внимание - проблема решена...

Для тех, кто с талкивался с этой ошибкой... У меня активное окно было Worksheets(2) - а сартировку необходимо было выполнить данных, находящиеся в Worksheets(1). Проблема решена следующим образом:

Dim i As Integer
i = Worksheets(1).Cells(1, 50).Value

iAddress1 = Range(Cells(6, 2), Cells(6 + i - 2, 17)).Address
iAddress2 = Range(Cells(6, 17), Cells(6 + i - 2, 17)).Address

Worksheets(1).Range(iAddress1).Sort _
Key1:=Worksheets(1).Range(iAddress2), _
Order1:=xlAscending


Спасибо Интернету и его участникам ))