1004: Application-defined or object-defined error

[ARW17]

I'm trying to create a change log for 2 different sheets in this workbook. My first one works using:


Dim irow As Long
Dim icol As Integer


For irow = 1 To 65536
For icol = 1 To 6


If Worksheets("Extra Opener Schedule").Cells(irow, icol).Value <> Worksheets("EOS").Cells(irow, icol).Value Then

Sheets("Change Log").Range("A65536").End(xlUp).Offset(1, 0) = Now()

Sheets("Change Log").Range("B65536").End(xlUp).Offset(1, 0) = Sheets("Extra Opener Schedule").Cells(1, icol) & ", " &

Sheets("Extra Opener Schedule").Cells(irow, 1).Offset(-1, 0) & " " & Sheets("Extra Opener Schedule").Cells(irow, icol).Offset(-1, 0)

Sheets("Change Log").Range("C65536").End(xlUp).Offset(1, 0) = Sheets("EOS").Cells(irow, icol)

Sheets("Change Log").Range("D65536").End(xlUp).Offset(1, 0) = Sheets("Extra Opener Schedule").Cells(irow, icol)


Exit For
Else
End If
Next icol
Next irow

But, it seems like I'm using the same philosophy on the next set and it gives me the 1004 error in the title of this post on the line:

If Worksheets("Telecommuter Schedule").Cells(xrow, xcol).Value <> Worksheets("TS").Cells(xrow, xcol).Value Then

My code for the 2nd portion is:

Dim xrow As Integer
Dim xcol As Long


For xrow = 3 To 10
For xcol = 2 To 65536


If Worksheets("Telecommuter Schedule").Cells(xrow, xcol).Value <> Worksheets("TS").Cells(xrow, xcol).Value Then

Sheets("Change Log").Range("F65536").End(xlUp).Offset(1, 0) = Now()

Sheets("Change Log").Range("G65536").End(xlUp).Offset(1, 0) = Sheets("Change Log").Range("H65536").End(xlUp).Offset(1, 0) = Sheets("TS").Cells(xrow, 1)

Sheets("Change Log").Range("H65536").End(xlUp).Offset(1, 0) = Sheets("Telecommuter Schedule").Cells(xrow, 1)


Exit For
Else
End If
Next xcol
Next xrow

Please help!

 

[steve the fish]

There are not 65000 columns. There are 65000 rows.