Я использую подпрограмму для сортировки в алфавитном порядке выбора ячеек (подпункт был найден на этом сайте). Саб работает правильно, однако после запуска саба и закрытия файла, при повторном открытии я получаю ошибку с файлом. Я сделал скриншоты сообщений об ошибках, которые я получаю при открытии файла. 1-е сообщение: 
2-е сообщение (при нажатии «да» на 1-е сообщение): 
Код, который я использую для сортировки показано здесь:
Sub SortAtoZ(ws As String, r As Range)
With Worksheets(ws).Sort
.SortFields.Add Key:=r, _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange r
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub