runtime error 9 - subscript out of range

[Blake 7]

hi guys. Please see attached demo workbook showing my issue.

I am trying to run the macro Loopthroughsheets, which should copy all images which appear in the workbook and paste them into sheet 1. The debugger points to this line

Sheets("Map () " & n).Pictures(1).Copy

Sub LoopThroughSheets()
Dim n As Long
For n = 2 To 8
Sheets("Map () " & n).Pictures(1).Copy
Workbooks("Maps FINAL For Forum").Sheets("Sheet1").Range("A" & n * 10).PasteSpecial
Next n
End Sub

Could someone please take a look.

thansk

[mshale]

In your code, you look for a sheet called "Maps () " & n. This sheet does not exist because none of your sheet names contain "()"

Try this code:

Please Login or Register  to view this content.