Code:
Sub ClearData()
Dim Pic As Object
'Clears Data for Name, Login, Badge Number, etc
Range( _
"K2:N3,D2:G3,D9:G10,K9:N10,D16:G17,K16:N17,K23:N24,D23:G24" _
).ClearContents
'Deletes Pictures from file
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub
Is there a way to only delete pictures within A1:O30?