シート内セルに着色があればエラーメッセージ

Excelの入力ボタンをクリックしたときにシート１のセル"A1:D50"内にエラーで着色（ColorIndex =7）されたセルがあった場合、次のステップにいけないようにエラーメッセージ（"日付が入力されていません"）を表示したいのですがコード表示が解る方どうかよろしくお願いします。