SamanthaSkilltec
New Member
- Joined
- Apr 11, 2019
- Messages
- 20
Hi all
I'm at my wits end so I really hope someone can help!
I have a macro that I recorded that simply needs to copy the content from the active sheet (using copy and paste as I need the command button to copy as well), create a new sheet and paste the copied data there... but it's pasting it as a PICTURE???
I have no idea what I'm doing wrong and I've tried this on two PCs and a laptop but it's always the same.
Please can someone advise before I completely lose the will!!!
TIA
Samantha
I'm at my wits end so I really hope someone can help!
I have a macro that I recorded that simply needs to copy the content from the active sheet (using copy and paste as I need the command button to copy as well), create a new sheet and paste the copied data there... but it's pasting it as a PICTURE???
I have no idea what I'm doing wrong and I've tried this on two PCs and a laptop but it's always the same.
Please can someone advise before I completely lose the will!!!
TIA
Samantha
Code:
Sub Macro2()
'
' Macro2 Macro
'
'
Range("A1:AB100").Select
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveSheet.Buttons.Add(624, 291, 48, 42.75).Select
ActiveSheet.Buttons.Add(624, 291, 48, 42.75).Select
ActiveSheet.Buttons.Add(624, 291, 48, 42.75).Select
ActiveSheet.Buttons.Add(720.75, 20.25, 118.5, 41.25).Select
ActiveSheet.Paste
Range("I:I,K:K,M:M,O:O,Q:Q,U:U,W:W,Y:Y").Select
Range("Y1").Activate
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll ToRight:=-10
ActiveSheet.Shapes.Range(Array("Button 4")).Select
Application.CutCopyMode = False
Selection.Delete
Selection.Cut
Range("A1:E1").Select
End Sub
Last edited by a moderator: