仅匹配对象名称的一部分

Question

如何使以下代码与名称中包含不同编号的表一起使用，例如MarketsBudgetOverviewTable8或MarketsBudgetOverviewTable21？

With current_sheet
    .ListObjects("MarketsBudgetOverviewTable6").ListColumns("OBP 2018"). _
        TotalsCalculation = xlTotalsCalculationSum 
End with