оператор split и hidden

[Bape}l{ka]

привет всем)
подскажите, что не так
выдает ошибку "Wrong numder of arguments or invalid property assignment"

Sub ShowAll()
Dim x As Variant
'показываем все, кроме служебных (с формулами)
    ActiveSheet.Columns.Hidden = False  'Cells.EntireRow.Hidden = False
    
    For Each x In Split("11,21,23,25,48,50,54,46,62,95,135,139,167", ",")
        Cells.Column(x).Hidden = True
    Next
  
End Sub

может еще подскажите, если заменить split массивом, как это прописать?

[IgorGO]

Columns(Val(x)).Hidden = True

[Bape}l{ka]

спасибо)
это я так понимаю, из-за того, что при Split у нас выдается значение Variant ?

[Казанский]

Split выдает массив строк, а тут нужны числа. С массивом

    For Each x In Array(11, 21, 23, 25, 48, 50, 54, 46, 62, 95, 135, 139, 167)
        Columns(x).Hidden = True
    Next