Изменить источник данных сводной таблицы, ЕСЛИ источник сводной таблицы является определенным источником

Question

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

Sub Change_Pivot_Source()

     Dim pt As PivotTable

     For Each pt In ActiveWorkbook.Worksheets("Sheet2").PivotTables
         pt.ChangePivotCache ActiveWorkbook.PivotCaches.Create _
            (SourceType:=xlDatabase, SourceData:="Data2")
     Next pt

End Sub

Как мне настроить этот код, чтобы сделать его немного более динамичным, IE,вставьте модификатор, чтобы if SourceData был Source1 then, измените его на Source2 else, измените SourceData на Source3

Извинения, поскольку я ничего не знаю оvbasic макросы вообще.