皆様のおっしゃるとおりPrivate Type EntaiData → Public Type EntaiData +Cas_ExcelEdit0750(Prig_EntaiData()) = False Thenと修正したところ、引数を受け渡すことがでしました。大変ありがとうございました。