' Listing 4: The SheetSorter Subroutine

Sub SheetSorter 
  XL.ActiveSheet.Cells.SpecialCells(11).Select
  lastrow = XL.Selection.Row
' ******* BEGIN CALLOUT A *******
  With XL.Worksheets("Hyperlinks").Range("A1" & ":A" & lastrow)
    For SheetName = .Rows.Count To 1 Step -1
      XL.Worksheets(.Cells(SheetName).Value).Move(XL.Worksheets(2))
    Next
  End With
' ******* END CALLOUT A *******
  XL.Sheets("HyperLinks").Select
  XL.Range("A1").Select
End Sub