そのモジュールの一番上に書いてみては?*** 例)_________________________________Type Test Name As String Number As LongEnd TypePrivate Function Function1() As Long・・・・End Function