[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