simpler VBA code with a loop

[akashawalker]

Hi to all
I have a piece of code that is working, but i would like to make it simpler by using a loop.
could someone assist me?

bellow is my code:

'%%%%%%%%%%% DELETE previous pictures from the worksheets%%%%%%%%%%%%%%%%

'Approval drawing 1
Dim myObj1
Dim Pictur
Set myObj1 = Worksheets("Approval Drawing 1").DrawingObjects
For Each Pictur In myObj1
If Left(Pictur.Name, 7) = "Picture" Then
Pictur.Select
Pictur.Delete
End If
Next

'Approval drawing 2
Dim myObj2
Set myObj2 = Worksheets("Approval Drawing 2").DrawingObjects
For Each Pictur In myObj2
If Left(Pictur.Name, 7) = "Picture" Then
Pictur.Select
Pictur.Delete
End If
Next

'Approval drawing 3
Dim myObj3
Set myObj3 = Worksheets("Approval Drawing 3").DrawingObjects
For Each Pictur In myObj3
If Left(Pictur.Name, 7) = "Picture" Then
Pictur.Select
Pictur.Delete
End If
Next



Thanks for your time
Akasha Walker

 

[Fluff]

Untested but is this what you want

Sub DelPic()
'Approval drawing 1
    Dim myObj
    Dim Pictur
    Dim Cnt As Long
    
        For Cnt = 1 To 3
            Set myObj1 = Worksheets("Approval Drawing " & Cnt).DrawingObjects
            For Each Pictur In myObj
                If Left(Pictur.Name, 7) = "Picture" Then
                    Pictur.Select
                    Pictur.Delete
                End If
            Next Pictur
        Next Cnt

End Sub

 

[akashawalker]

Thank you Fluff
it worked like a charm.

one more question, if i want to use the same approach for bellow how could i make the Dim variables?


approvaldrawing1 = Left(Range("B5").Value, 5)
approvaldrawing2 = Left(Range("F5").Value, 5)
approvaldrawing3 = Left(Range("J5").Value, 5)
approvaldrawing4 = Left(Range("N5").Value, 5)

 

[Fluff]

What information will they hold, Numbers, text?

 

[akashawalker]

it hold a number
model number is: 44100AA1304CJ1235A and i just want the first five caracters

 

[Fluff]

In that case

Dim approvaldrawing1 As Long