セルに数字を打つと対応した文字を表示させるコード

お世話になります。Excel VBAで C4～F4まで一つに結合したセルに番号数字を打つと そこに番号に対応した文字を表示させるコードは何ですか? （それ以外を打つとエラーを返す動作を含む。） 例えば、1000を打つと○○株式会社と出るようにしたいです。 よろしくお願い申し上げます。