collection オブジェクト 『オブジェクト変数または With ブロック変数が設定されていません。』

原因: オブジェクトを生成してないのに Add しようとしたから

アウトな例

function myCollection() as collection
  myCollection.Add(100,"coffe")
end function

 
OKな例(new して set する。)

function myCollection() as collection
  dim newCollection as new Collection
  newCollection.Add(100,"coffe")
  set myCollection = newCollection
end function

自前のメソッドでは new した Collection オブジェクトを返していたので
気付かないうちに new をしていた。

ここだけ、そのことで却って、ここだけエラーが生じているのか
わからなくなってしまい、解決に時間を要した。

Excel VBAについて質問です。 Collectionを戻り値に取る 下記の.. - 人力検索はてな
Office TANAKA - Excel VBAの実行時エラー[目次]
Office TANAKA は神サイト