[RESOLVED] Rutime Error 1004

[XjOutsider]

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

The debuger say it fails here

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

Here is what I am working with.

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

[XjOutsider]

If i replace

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.

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

[westconn1]

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

[XjOutsider]

Still Fails here. This is the specific section that fails

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

[westconn1]

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

[XjOutsider]

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

[westconn1]

that would make sense