Pepperdine21
New Member
- Joined
- Jul 9, 2021
- Messages
- 2
- Office Version
- 365
- Platform
- Windows
I am trying to copy 3 pictures from a sheet titled "Hidden" and paste them in cell B2 of each sheet using a for loop.
Here is my current code. I get no error messages but nothing pastes in any of the desired sheets.
dim Sht as Worksheet
For Each Sht In Worksheets
If Not Sht.Name = "Intro" Then
Worksheets("Hidden").Select
ActiveSheet.Shapes.Range(Array("Picture 8", "Picture 7", "Picture 9")).Select
Selection.Copy
Sht.Activate
Sht.Select
Sht.Range("B1").PasteSpecial
End If
Next
-TIA
Here is my current code. I get no error messages but nothing pastes in any of the desired sheets.
dim Sht as Worksheet
For Each Sht In Worksheets
If Not Sht.Name = "Intro" Then
Worksheets("Hidden").Select
ActiveSheet.Shapes.Range(Array("Picture 8", "Picture 7", "Picture 9")).Select
Selection.Copy
Sht.Activate
Sht.Select
Sht.Range("B1").PasteSpecial
End If
Next
-TIA