Gruss Dani
Sub KommentarShapes_Löschen()
Dim shpe As Shape
If ActiveSheet.Comments.Count > 0 Then
For Each shpe In ActiveSheet.Shapes
If Intersect(shpe.TopLeftCell, ActiveSheet.Cells.SpecialCells(xlCellTypeComments)) Is _
Nothing Then
If shpe.Fill.ForeColor.RGB = vbWhite Then
shpe.Delete
End If
End If
Next
Else
For Each shpe In ActiveSheet.Shapes
If shpe.Fill.ForeColor.RGB = vbWhite Then
shpe.Delete
End If
Next
End If
End Sub
gruß Daniel