Vielen Dank wie immer
Luna
If Left(lshpChk.Name, 2)
, deshalb werden nur einstellige Zeilennummern verarbeitet.Sub sbChkDel(ByVal zeile As Long)
Dim lshpChk As Shape
Dim s As String, l As Long
s = zeile & "_"
l = Len(s)
For Each lshpChk In ActiveSheet.Shapes
If Left(lshpChk.Name, l) = s Then
lshpChk.Delete
End If
Next
End Sub
Schöne Grüße,