wie kann ich den Code abändern, damit im Blatt "Arbeit" nur die Kommentare im Bereich von A2 bis zur letzten benutzten Zelle in A formatiert werden. Alles anderen sollen belassen werden.
Hier mein Code bei dem Alle Kommentare im Blatt formatiert werden:
Option Explicit
Sub KommentareFormatieren()
Dim objSh As Worksheet
Dim objCmnt As Comment
Set objSh = Worksheets("Arbeit")
For Each objCmnt In objSh.Comments
With objCmnt.Shape.TextFrame
.Characters.Font.Name = "Verdana"
.Characters.Font.Size = 10
.Characters.Font.Bold = False
.AutoSize = True
End With
With objCmnt.Shape
.Width = 550
.Height = 160
End With
Next
Set objSh = Nothing
End Sub
Besten Dank und Servus, Walter