Run Access Macro to do Paste Special in Excel file

[PaulJV]

Hi,
I am trying to design a macro that is ran in Access but that will:
[/LIST]
The problem I am having is that when pasted in the second Excel file, the cells appear as an embedded sheet as opposed to simple text? :dunno

Please heeeelp :banghead:

Here is the code I have right now for my Access Macro:

Dim XL As Object
Dim XL1 As Object
Dim var1 As Integer
Dim var2 As Integer

Set XL = CreateObject("Excel.Application")
Set XL1 = CreateObject("Excel.Application")

XL.Workbooks.Open "G:\QS Generator - V5.xlsx"

With XL
.Sheets("Data").Select
.Activeworkbook.RefreshAll
.Sheets("QS").Select
var1 = InputBox("Enter number of columns")
var2 = 0
.Range("C13:C13").Select

Do Until var1 = var2
QSID = InputBox("Enter QSID")
.ActiveCell = QSID
.ActiveCell.Offset(0, 1).Select
var2 = var2 + 1
Loop

.Visible = True
.Range("B8:B8").Select
.Range(XL.ActiveCell, XL.ActiveCell.Offset(3, 5)).Select
.Selection.Copy
End With

XL1.Workbooks.Open "G:\QS Template.xlsx"
With XL1
.Sheets("QS").Range("B8").Select
.Selection.PasteSpecial xlPasteValues
.Visible = True
End With