I need to write some code that will insert 8 pictures on 8 different sheets.
I will also need the ability to go back and delete any pictures that are on
the sheet. I'm having some problems with the code to insert the pictures,
here is what i've got any help will be appreciated

' delete
for i = 1 to 8
Sheets("Sheet" & i).Activate
photo(i).picture.Delete
next

' insert
dim photo(1 to 8) as image
dim picLocation as string
dim iCount as integer

for iCount = 1 to 8
picLocation = "C:\Pic" & iCount & ".jpg"
Sheets("Sheet" & iCount).Activate
Range("D6").Select
set photo(iCount) = activesheet.pictures.insert(picLocation)
photo(a).picture.width = 2
photo(a).picture.height = 3
next