Office: (Office 2013) Excel VBA CommentIndicator Farbe ändern, Code Umbau auf Aktive Zelle

Hi Zusammen man kann ja den CommentIndicator leider nicht auf normalem Weg ändern (Rote Dreieck rechts in Ecke was einem anzeigt hier ist ein Kommentar in Zelle) nun hab ich folgendes Makro was einfach ein Shape auch Dreieck drüberlegt. läuft super nur wie kann ich es umbauen das es nur die active zelle in dem activen tabellenblatt ausgeführt wird und nur den einen Kommentar ändert und nicht jedesmal alle?


Sub CoverCommentIndicator()
'Update 20141110
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4

For Each pComment In pWs.Cells(7, 12).Comments

Set pRng = pComment.Parent

Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
With pShape

.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 12
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next
End Sub


Danke & Gruß SW5

 

Hi mir wurde schon geholfen. Gruß SW5