[RESOLVED] Rutime Error 1004

I am hung up on this Runtime error 1004. Still really new to VB

The debuger say it fails here

Code:

---

Sheets("Matrix").Range(CompCopyRng(j), Sheets("Matrix").Range(UserformStr(i) & 65536).End(xlUp)).Copy

---

Here is what I am working with.

Code:

---

Dim Filename As Variant
Filename = MMatrixtx.Text
Dim MMatrixws As Worksheet
Workbooks.Open (Filename)
Set MMatrixws = Worksheets("Matrix")
MMatrixws.Activate
Dim j As Integer
Dim i As Integer
For i = 0 To 9
  For j = 0 To 9


    Sheets("Matrix").Range(CompCopyRng(j), Sheets("Matrix").Range(UserformStr(i) & 65536).End(xlUp)).Copy
            ThisWorkbook.Sheets("SAS").Activate
            Range("P9").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    Next j
Next i
End Sub

---

If i replace

Code:

---

MMatrixws.Range(CompCopyRng(j), MMatrixws.Range(UserformStr(i) & 65536).End(xlUp)).Copy

---

With this it work perfect every time. This is what the above should translate too.

Code:

---

MMatrixws.Range("DO10", MMatrixws.Range("DO65536").End(xlUp)).Copy

---

try
MMatrixws.Range(CompCopyRng(j), MMatrixws.Range(UserformStr(i) & "65536").End(xlUp)).Copy

Still Fails here. This is the specific section that fails

Code:

---

MMatrixws.Range(CompCopyRng(j), MMatrixws.Range(UserformStr(i) & "65536").End(xlUp)).Copy

---

what are the values (contents) of
compcopyrange and userformstr arrays?

CompCopyRng(0) = "OECtx.Text & FirstRow.Text"

When i Removed the Quotes it seams to work fine.

so it is looks like this now
CompCopyRng(0) = OECtx.Text & FirstRow.Text

that would make sense