Office: Zellen einfärben per Multiseiten

Hallo
Ich befasse mich erst seit 2 Wochen mit VBA, und komme jetzt nicht mehr weiter.
Habe ein UserForm erstellt in dem ich mit Button auf einer Multiseite, in den Wochentagen Zellen in einer Tabelle einfärbe.
1.
Ich möchte die Zelleneinfärbung von Montag (Range. C14, usw.)auch in den restlichen Wochentagen der Multiseiten benutzen.
Weiß aber leider nicht wie ich das am besten machen soll.
2.
Ich vergebe per InputBox die neuen Blattnamen, bekomme bei "Abbrechen" oder keiner Eingabe immer eine Fehlermeldung.
Weiß auch dort leider nicht was ich machen muss.

Bin für jede Hilfe dankbar

 

Hallo!

zu 1.
Die entsprechenden Makros für die Montags-Buttons (bzw. Spalte C) hast du doch schon. Diese musst du nur für die anderen Buttons anpassen (Spalte D, E, F,...)

zu 2.
Fange dies mit einem If ab:
If NewName = "" Then
ActiveSheet.Name = irgendwas_anderes
Else:
ActiveSheet.Name = NewName
End If

 

Hallo
Ich dachte es gäbe eine einfachere Lösung als meine Makro-Aufzeichnung.
Ist aber nicht schlimm, habe die anderen angepaßt.

Dein Vorschlag zu 2. bekomme ich nicht hin, habe immer noch Laufzeitfehler beim Abbrechen / kein Name.
Ich weiß leider nicht wie ich deine If Anweisung einbinden muss.