Kommentar mit VBA formatieren

Private Sub CommandButton1_Click()
'Arbeitsblatt kopieren und Verknüpfungen löschen
Dim strQuelldateiPfadName As String
Dim strQuelldateiName As String
Dim wksArbeitsblatt As Worksheet
Dim Dateiname As String
strQuelldateiPfadName = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
strQuelldateiName = ActiveWorkbook.Name
'   Bildschirmaktualisierung aus
Application.ScreenUpdating = False
'   Arbeitsblatt kopieren
ActiveSheet.Copy
For Each wksArbeitsblatt In ActiveWorkbook.Sheets
'   Passwort entsperren
wksArbeitsblatt.Unprotect
Next wksArbeitsblatt
'   Verknüpfungen zu anderen Tabellenblättewr werden entfernt
ActiveWorkbook.BreakLink Name:=strQuelldateiPfadName, Type:=xlExcelLinks
For Each wksArbeitsblatt In ActiveWorkbook.Sheets
'   Blattschutz aufheben
wksArbeitsblatt.EnableSelection = xlUnlockedCells
Next wksArbeitsblatt
'   Button löschen
ActiveSheet.DrawingObjects(1).Delete
'   Kommentar in Zelle T4 einfügen
ActiveSheet.Range("T4").AddComment "Kopiertes Tabellenblatt zuerst speichern!"
'   Dateiname erstellen
Dateiname = ActiveWorkbook.ActiveSheet.Name & " " & Range("M2")
'   Dialog "Speichern unter" öffnen um Datei mit Dateiname zu speichern
Application.Dialogs(xlDialogSaveAs).Show Dateiname
'   Bildschirmaktualisierung ein
Application.ScreenUpdating = True
End Sub