copy paste fail
Found it, trimming the code behind the sheet i want to paste to:
Private Sub Worksheet_Activate() <----------------------------No good
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
End With
Application.Goto Reference:=Cells(1, 1), Scroll:=True
ActiveSheet.Cells(2, 1).Select
End Sub
Private Sub Worksheet_Activate() <................................Good
Application.Goto Reference:=Cells(1, 1), Scroll:=True
ActiveSheet.Cells(2, 1).Select
End Sub
God knows why though.
|