VBA Pasting as picture not as data!!??

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
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:

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
33,984
Office Version
365
Platform
Windows
Paste the copied cells before adding the buttons.
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
33,984
Office Version
365
Platform
Windows
Glad to help & thanks for the feedback
 

Forum statistics

Threads
1,086,142
Messages
5,388,094
Members
402,101
Latest member
wawezzer

Some videos you may like

This Week's Hot Topics

Top