Скрыть / показать (отключить / включить) лист с помощью макросов qlickview

Question

Я стараюсь объяснить как можно лучше

Мне нужно скрыть несколько листов с помощью макроса vbscript, чтобы при печати документа они не были видны. я могу получить лист через его идентификатор, а затем скрыть / показать его?

пример:

функция Скрыть

    Dim strValueToDisplay 

    strValue = split(ActiveDocument.Variables("vHideSheetList").GetContent().String,",")

    for each sheetId in strValue
        'msgbox(sheetId)
        ActiveDocument.Sheets(sheetId).Hide
    next 

функция Показать

    Dim strValueToDisplay 

    strValue = split(ActiveDocument.Variables("vHideSheetList").GetContent().String,",")

    for each sheetId in strValue
        'msgbox(sheetId)
        ActiveDocument.Sheets(sheetId).Show
    next 

Спасибо!