VBA: Variabelt kommentaroverskrift

Der er ikke vel ikke en decideret overskrift i et kommentarfelt - men med nedenstående vil du kunne indsætte teksten fra f.eks. "A1" øverst i kommentarfeltet samt 2 linieskift inden resten af din kommentar.

Den tilføjer blot teksten/tallene til din i forvejen eksisterende kommentar. Således at du først tilføjer kommentaren og efterfølgende kører makroen....

Sub IndsætOverskrift()
Dim kommentar As String

kommentar = Range("I6").Comment.Text

    Range("I6").Comment.Text Text:=Range("A1") & Chr(10) & Chr(10) & kommentar
    Range("I6").Select
End Sub

Hvis du med overskrift mener der hvor den skriver dine brugerinitialer, så kan du ændre dem i opstarten.
I et Modul:

Public Bruger As String

I ThisWorkbook modulet

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.UserName = Bruger
End Sub

Private Sub Workbook_Open()
Bruger = Application.UserName
End Sub

så kan du ændre det med en makro

Application.UserName = Sheets(1).Range("A1")

Tjah, hvis ikke brugernavnet bruges til andet, kan Kabbaks løsning vel fint bruges - altså:

Public Bruger As String
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.UserName = Bruger
End Sub
Private Sub Workbook_Open()
Bruger = Application.UserName
Application.UserName = Sheets(1).Range("A1")
End Sub

Stewen, din løsning fungerer nogenlunde, men er lidt "semi"-automatisk.
Ikke mindst fordi løsningen kører i 2 step.

Smid et svar begge 2.

;-))

Er godt klar over den kører i 2 step! Men var heller ikke sikker på hvordan du ville bruge det.

Smid bare point til kabbak.. det forslag er jo supergodt :-)

tak for point ;^)

"Tjah, hvis ikke brugernavnet bruges til andet"

Jeg ved ikke om det bruges til andet, måske når du gemmer(dokumentinfo) ??