Макрос - имя листа по имени ячейки

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target = Range("A1") Then
        If Target.Value <> "" Then
            If Len(Target.Value) < 30 Then
                Target.Parent.Name = Target.Value
            End If
        End If
    End If
End Sub

Sub ExportToPDF()
    Dim sh As Worksheet, iFileName As String
    
    Set sh = ActiveSheet
    iFileName = Replace(ActiveWorkbook.FullName, CreateObject("Scripting.FileSystemObject").GetExtensionName(ActiveWorkbook.Name), "pdf")
    'Sheets(Array("Отчет1", "Отчет2", "Отчет3")).Select
    Sheets("Лист1").Select
    ActiveSheet.ExportAsFixedFormat xlTypePDF, iFileName
    sh.Select
End Sub

Sub ExportToPDF()
    Dim sh As Worksheet, iFileName As String
    
    Set sh = ActiveSheet
    Application.ScreenUpdating = False
    iFileName = ActiveWorkbook.Path & Application.PathSeparator & Sheets("Форма").Range("I8").Value & ".pdf"
    Sheets(Sheets("Форма").Range("I8").Value).Select
    ActiveSheet.ExportAsFixedFormat xlTypePDF, iFileName
    sh.Select
    Application.ScreenUpdating = True
End Sub

Dim iCurrentName As String
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Address(0, 0) = "I8" Then
        If Target.Cells.Count = 1 Then
            iCurrentName = Target.Value
        End If
     End If
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    On Error Resume Next
    If Target.Address(0, 0) = "I8" Then
        If Target.Value <> "" Then
            If Len(Target.Value) < 30 Then
                Worksheets(iCurrentName).Name = Target.Value
                iCurrentName = Target.Value
            End If
        End If
    End If
End Sub

Sub ExportToPDF()
    Dim iFileName As String, iShtName As String, iPath As String, FD As FileDialog
    
    Application.ScreenUpdating = False
    'iFileName = ActiveWorkbook.Path & Application.PathSeparator & Sheets("Форма").Range("I8").Value & ".pdf"
    iFileName = Sheets("Форма").Range("I8").Value & ".pdf"
    iShtName = Sheets("Форма").Range("I8").Value
    If iShtName = "" Then
        MsgBox "Не указана модель на листе 'Форма' в ячейке I8", vbExclamation, "Ошибка"
        Exit Sub
    End If
   
    Set FD = Application.FileDialog(msoFileDialogFolderPicker)
    With FD
        .InitialFileName = Left(ThisWorkbook.FullName, InStrRev(ThisWorkbook.FullName, Application.PathSeparator, -1, vbTextCompare))
        .InitialView = msoFileDialogViewList
        .AllowMultiSelect = False
        .Title = "Укажите папку для сохранения"
        .ButtonName = "Выбрать папку"
        If .Show = False Then Exit Sub Else iPath = .SelectedItems(1) & Application.PathSeparator
    End With
    Set FD = Nothing
    
    If SheetExist(iShtName) Then
        Worksheets(iShtName).ExportAsFixedFormat xlTypePDF, iPath & iFileName
    Else
        Application.ScreenUpdating = True
        MsgBox "Лист с названием '" & iShtName & "' отсутствует в книге!", vbExclamation, "Ошибка"
        Exit Sub
    End If
    Application.ScreenUpdating = True
    MsgBox "Файл сохранён в " & iPath & iFileName, vbInformation, "Экспорт в PDF"
    
End Sub
 
Function SheetExist(iName As String) As Boolean
    On Error Resume Next
    With Worksheets(iName): End With
    SheetExist = (Err = 0)
    Err.Clear
End Function

Private Sub Worksheet_Activate()
    iCurrentName = ActiveSheet.Name
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "I8" Then
        If Target.Value <> "" Then
            If Len(Target.Value) < 30 Then
                Worksheets(iCurrentName).Name = Target.Value
                iCurrentName = Target.Value
            End If
        End If
    End If
End Sub

Private Sub Workbook_Open()
    iCurrentName = ActiveSheet.Name
End Sub

Public iCurrentName As String

'Sheets(Sheets("Форма").Range("I8").Value).Select
Sheets("Форма").Select

Private Sub Test()
    iFileName$ = ActiveWorkbook.Path & "\" & Worksheets("Форма").Range("I8") & ".pdf"
    ActiveSheet.ExportAsFixedFormat xlTypePDF, iFileName$
End Sub

Private Sub Test2()
    With ActiveWorkbook
         .ActiveSheet.ExportAsFixedFormat xlTypePDF, .Path & "\" & .Worksheets("Форма").[I8]
    End With
End Sub