引数が可変の場合、構成要素が数値や文字列なら、配列で指定ができるが
オブジェクト系(範囲など)だとこれができないっぽい。

例えばこんなイメージは無理。
┌──────────────────────────────────────┐
│MsgBox WorksheetFunction.CountIfs(配列)                                     │
└──────────────────────────────────────┘

ということで、代案。
CountIfs()の引数は最大30個なので
配列を30個あらかじめ用意して、NULLで埋めておけばそんな感じになる。
┌──────────────────────────────────────┐
│Dim 配列(1 To 30) As Variant                                                │
│For i = LBound(配列) To UBound(配列)                                        │
│    配列(i) = Null                                                          │
│Next i                                                                      │
├──────────────────────────────────────┤
│MsgBox WorksheetFunction.CountIfs( _                                        │
│    配列(1), 配列(2), 配列(3), 配列(4), 配列(5), _                          │
│    配列(6), 配列(7), 配列(8), 配列(9), 配列(10), _                         │
│    配列(11), 配列(12), 配列(13), 配列(14), 配列(15), _                     │
│    配列(16), 配列(17), 配列(18), 配列(19), 配列(20), _                     │
│    配列(21), 配列(22), 配列(23), 配列(24), 配列(25), _                     │
│    配列(26), 配列(27), 配列(28), 配列(29), 配列(30) _                      │
│)                                                                           │
└──────────────────────────────────────┘

もっといい方法がありそうだが。

引数が可変の場合、構成要素が数値や文字列なら、配列で指定ができる。
┌──────────────────────────────────────┐
│Dim 配列 As Variant                                                         │
│配列 = Array(1, 2, 3)                                                       │
│MsgBox WorksheetFunction.Min(配列)     '.Min(1, 2, 3)と同じ    →1          │
│MsgBox WorksheetFunction.Average(配列) '.Average(1, 2, 3)と同じ→2          │
│MsgBox WorksheetFunction.Max(配列)     '.Max(1, 2, 3)と同じ    →3          │
└──────────────────────────────────────┘

┌──────────────────────────────────────┐
│Dim SHELL                                                                   │
│Set SHELL = WScript.CreateObject("Wscript.Shell")                           │
│MsgBox SHELL.CurrentDirectory                                               │
└──────────────────────────────────────┘
上記みたいにカレントディレクトリを取得する場合
Windowsタスクスケジューラから実行すると
「C:\Windows\system32」とかになるから気をつけろ～！

ExcelVBAでも同じだった。
┌──────────────────────────────────────┐
│Dim 配列 As Object                                                          │
│Set 配列 = CreateObject("System.Collections.ArrayList")                     │
│Call 配列.Add("東京")                                                       │
│Call 配列.Add("大阪")                                                       │
│Call 配列.Add("名古屋")                                                     │
│MsgBox Join(配列.ToArray(), "、")                                           │
└──────────────────────────────────────┘
ReDimより全然便利。
でも、.Net Framework 3.5がないと使えない。採用は難しいかな。

動的に配列を使う場合、Dimでスカラ配列を定義し、ReDimで都度都度拡張、
そして末尾に位置付けて(添字を計算して)追加、…みたいな作業が
あまりに今風でなくてVB系はいけてないと思っていたのだが
ArrayListクラスオブジェクトを使うともっと簡単にできると知った。
┌──────────────────────────────────────┐
│Dim theArray                                                                │
│Set theArray = CreateObject("System.Collections.ArrayList")                 │
│Call theArray.Add("東京")                                                   │
│Call theArray.Add("大阪")                                                   │
│Call theArray.Add("名古屋")                                                 │
│MsgBox Join(theArray.ToArray(), "、")                                       │
└──────────────────────────────────────┘

  設定方法は以下の通り。
┌──────────────────────────────────────┐
│Dim theDic                                                                  │
│Set theDic = CreateObject("Scripting.Dictionary")                           │
│Set theDic("キー1") = CreateObject("Scripting.Dictionary")                  │
│theDic("キー1")("キー2") = 値                                               │
└──────────────────────────────────────┘

  参照方法は以下の通り。
┌──────────────────────────────────────┐
│Dim key                                                                     │
│key = "キー1"                                                               │
│If theDic.Exists(key) Then                                                  │
│    MsgBox theDic(key)("キー2")                                             │
│End If                                                                      │
├──────────────────────────────────────┤
│Dim key                                                                     │
│For Each key In theDic                                                      │
│    MsgBox theDic(key)("キー2")                                             │
│Next                                                                        │
└──────────────────────────────────────┘

┌──────────────────────────────────────┐
│Dim 出力 As String, 入力 As Long                                            │
│出力 = ""                                                                   │
│Do While 入力 > 0                                                           │
│    出力 = Chr(((入力 - 1) Mod 26) + 65) & 出力                             │
│    入力 = Int((入力 - 1) / 26)                                             │
│Loop                                                                        │
└──────────────────────────────────────┘

列幅の自動調整は以下のような感じで行う。
┌──────────────────────────────────────┐
│With シート                                                                 │
│    .Columns.AutoFit                                                        │
│End With                                                                    │
└──────────────────────────────────────┘
ところが、あるシートで実行する度に幅が広がったり狭まったりする現象に出くわした。

┌──────────────────────────────────────┐
│With シート                                                                 │
│    .Columns.AutoFit                                                        │
│    .Rows("1:1").AutoFilter                                                 │
│End With                                                                    │
└──────────────────────────────────────┘
原因はオートフィルタだった。
オートフィルタがONの状態で列幅自動調整をすると広がり、
オートフィルタがOFFの状態で列幅自動調整をすると狭まっていたのだ。
しかも、「.AutoFilter」はトグル的なメソッドなので、これと組み合わさって
処理を実行する度に幅が広がったり狭まったりする現象を引き起こしていたのだ。

┌──────────────────────────────────────┐
│With シート                                                                 │
│    If .AutoFilterMode Then  '■処理追加                                    │
│        .Cells.AutoFilter    '■処理追加                                    │
│    End If                   '■処理追加                                    │
│    .Columns.AutoFit                                                        │
│    .Rows("1:1").AutoFilter                                                 │
│End With                                                                    │
└──────────────────────────────────────┘
ということで、いかなる場合もオートフィルタがOFFの状態で
列幅自動調整をするように処置。(これで狭い方オンリーになる)