Как зафиксировать ячейку в excel - VB

Формулировка задачи:

как зафиксировать ячейку в excel в листе1, чтобы при сортировке в этом же листе 1, значения листа2 ссылались на те же самые значения листа1

Решение задачи: «Как зафиксировать ячейку в excel»

textual
                            Листинг программы 
                        

                            Dim sBeforeSort$, sAfterSort$

If Worksheets.Count < 2 Then Worksheets.Add

With Worksheets(2)
 .Cells(1, 1).Value = "абсолютная ссылка"
 .Cells(2, 1).Formula = "='" & Worksheets(1).Name & "'!" & Worksheets(1).Cells(1, 1).Address
 .Cells(1, 1).Value = "относительная ссылка"
 .Cells(2, 2).Formula = "='" & Worksheets(1).Name & "'!" & Worksheets(1).Cells(1, 1).Address(0, 0)
End With

With Worksheets(1)
 .Cells(1, 1).Value = "яблоко"
 .Cells(2, 1).Value = "груша"
 .Cells(3, 1).Value = "апельсин"
End With

With Worksheets(2)
  sBeforeSort = .Cells(2, 1).Value & " " & .Cells(2, 2).Value
  MsgBox sBeforeSort, , "значения ссылок до сортировки"
End With

With Worksheets(1)
  .Range(.Cells(1, 1), .Cells(3, 1)).Sort .Cells(1, 1)
End With


With Worksheets(2)
  sAfterSort = .Cells(2, 1).Value & " " & .Cells(2, 2).Value
  sAfterSort = sAfterSort & vbCrLf & vbCrLf & "а хотелось бы, чтобы осталось  " & vbCrLf & vbCrLf & sBeforeSort
  MsgBox sAfterSort, , "значения ссылок после сортировки"
End With

                        