Печать всех параметров в раскрывающемся списке после обновления Excel Add In - с кодом VBA

Question

У меня есть отчет о том, что моя команда должна войти в надстройку Excel, изменить выбор в раскрывающемся списке, обновить добавление Excel и распечатать (или сохранить в pdf), а затем повторять до тех пор, пока все варианты не будут обновлены и распечатаны..

Следует отметить, что обновление данных может занять некоторое время для каждого выбора, поэтому код должен быть достаточно терпеливым, чтобы процесс мог правильно обновлять и печатать (или сохранять).

У меня ограниченный опыт работы с VBA, и я пытался собрать разные коды для разных целей.

Private Sub CommandButton1_Click()
    Sub Iterate_Through_data_Validation()
    Dim dvCell As Range
    Dim inputRange As Range
    Dim c As Range


    'Which cell has data validation
       Set dvCell = Worksheets("Report_(2019_Season)").Range("K4")
    'Determine where validation comes from
       Set inputRange = Evaluate(dvCell.Validation.Formula1)

    For Each c In inputRange
        dvCell = c.Value
        'add some print page code here

        Dim GT As GreentreeExcelAddin
        Set GT = Application.ExcelAddIns.Item("Greentree.ExcelAddIn").Object
        GT.Refresh ("Report_(2019 Season)")

    Next c

End Sub

Я ожидаю, что все выбранные элементы (всего 215) в раскрывающемся списке обновляются и печатаются (или сохраняются в формате pdf) по отдельности.