Lock Picture Only - When unlock sheet temporary for clear

Hi,

In my coding, I am clearing used range with Clear function. (I do not want to use clearcontens)
In Used range in center I have picture. (Name Picture 1).

My problem,
1. I am unlocking sheet with using code , code set with function properly

Sheet14.Unprotect password:=password

2. Clearing used range given name as "MyRange"

MyRange.Clear

This creates problem that cells cleared having format Lock cells, if I lock sheet again to protect picture from delete then my sheet affects in used range to locked cells. (I do not want to use clearcontents)

3. Main thing requires, I want that picture 1 should be locked, which can't be deleted or moved at any reasons while following above codes.

Thanks for your time.

Regards, RR1050

try this :

Sub SelectUnlockedCells()
 Dim c As Range, r As Range
 For Each c In ActiveSheet.UsedRange
     If c.Locked = False Then
         If r Is Nothing Then
             Set r = c
         Else
             Set r = Union(r, c)
         End If
     End If
 Next
 If r Is Nothing Then Exit Sub
 r.Select
 End Sub

it selects only unlocked cells
you can add to this :

Selection.clear

or just make the above

r.clear

I have not tested this, so my apologies in advance if this does not work 100%

Thanks for your time.

Yes I like your thoughts.....