case "1" versucht einen Text der wie eine Zahl aussieht zum Vergleich zu verwenden. Wennin der Range auch ein Text steht ist alles ok, wenn da eine Zahl steht, solltest du die Anführungstriche wegnehmen. in deinem Modul schreibst du die Subs einfach so rein.

modul1()
      public PublicSub_1()
      ................
      end sub
       
      public PublicSub_2()
         .........
      end sub

     Call PublicSub_3()
     ..................
     end sub