У меня есть лист "Конец", который нужно переместить, чтобы он стал последним из всех доступных листов. Мне нужно сделать это с помощью VBA.
У меня есть сортировка, которая работает, мне просто нужен синтаксис для перемещения. Вот что у меня есть:
Private Sub CommandButton263_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
Next j
Next i
Sheets("Navigation").Select
Sheets("Navigation").Move Before:=Sheets(1)
Sheets("Navigation (2)").Select
Sheets("Navigation (2)").Move Before:=Sheets(2)
Sheets("EstimateTemplate").Select
Sheets("EstimateTemplate").Move Before:=Sheets(3)
Sheets("Formulas").Select
Sheets("Formulas").Move Before:=Sheets(4)
Sheets("End").Move After:=Sheets(EOF) 'what can i use instead of EOF?
Sheets("Navigation (2)").Select
End Sub
Специально глядя на строку Sheets("End").Move After:=Sheets(EOF)
- Что я могу использовать, чтобы получить последний лист?