Macro works on step by step but not on auto

[Oakey]

HI,

I have the following code that i am using. It works when i do step by step but when i try to auto do it, it comes up with a blank screen.

Sub Second_Pivot()
'
' Pivot2 Macro
'


'
Sheets("Pivot1").Select
Columns("A:C").Select
Selection.Copy
Sheets("Pivot2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False '


End Sub

Any help would be appreciated

 

[gallen]

I can't see why it wouldn't. Using select is never favourable. Try this code and see if it works:

I've tested on basic data. It pastes to cell A1 of Pivot2. Change if needed.

Sub Second_Pivot()


Sheets("Pivot1").Columns("A:C").Copy


Sheets("Pivot2").Cells(1, 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False




End Sub