Существует ли формула VBA для печати листа Excel с выпадающим списком сразу?

Question

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

Я пробовал следующий код VBA:

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("Seating Chart").Range("K3")
'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
Next c

End Sub

Но я не уверен, что изменить, чтобы он работал. Я знаю, что когда я его запускаю, Set inputRange - Evaluate(dvCell.Validation.Formula1) подсвечивается как ошибка.

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("Seating Chart").Range("K3")
'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
Next c

End Sub

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