Сохранить лист в книге в формате PDF, используя цикл

Question

У меня есть рабочая книга со следующими именными листами: Вход, Презентация, Результаты.

В листе результатов есть строки с информацией, которая отображается на листе презентации через ячейку B2 на листе ввода. B2 начинается со значения 1, которое ищет диапазон A5: A5000 в таблице результатов. Изменение ячейки B2 во вводе изменяет лист презентации.

Я ищу код для макроса, который будет принимать значение в ячейке B2 листа «Вход», сохраните лист «Презентация» в формате PDF имя того, что находится в ячейке B4 листа «Вход», добавьте 1 к значению в ячейке B2 листа «Вход» и повторяйте циклы, пока не найдете пустую ячейку в диапазоне A5: A5000 на листе «Результаты».

Я хочу, чтобы файлы сохранялись один за другим в одной и той же папке.

Это мой код:

Sub ProjectionStatementRecord()

' ProjectionStatementRecord Macro

Sheets("Results sheet").Activate
   Range("A4").Select

   Do While True
   If Selection.Value = "" Then
   Exit Do
   Else
    Sheets("Input sheet").Activate
    Range("B3").Select
    Selection.Copy
    Sheets("Presentation").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Kristine\Desktop\Retirement Projection\" & Selection.Text & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
    Sheets("Results sheet").Activate
    Selection.Offset(1, 0).Select
    End If
    Loop
End Sub

Я получаю сообщение об ошибке "файл не сохранен"

Пожалуйста, помогите.