Why aren't values being transcribed?

[ChemistB]

I'm comparing two worksheets within a workbook. WkSht1 and WkSht2 are strings entered through inputboxes for the worksheet names to be compared (in the example List1 and List 2).
The macro is assigning the proper range to WkSht1Range and entering those addresses in Col A of "Differences Sheet" but it is entering all addresses in the range and not recording any values in Columns B and C. Here's the code of interest

' Process each cell
For Each Cell In WkSht1Range
'Compare cells in two sheets with IF statement
    If Worksheets(WkSht1).Cell.Value <> Worksheets(WkSht2).Cell.Value Then
        With DifferencesSheet
            Cells(Row, 1) = Cell.Address _
            (RowAbsolute:=False, ColumnAbsolute:=False)
            Cells(Row, 2) = Worksheets(WkSht1).Cell.Value
            Cells(Row, 3) = Worksheets(WkSht2).Cell.Value
            Row = Row + 1
        End With
    End If
Next Cell

So I have two initial issues.
1. Why all addresses and not just the ones where the two sheet values do not agree?
2. Why isn't it transcribing the sheet values?
Thanks in advance.
Workbook attached.

[snb]

you forgot a lot of dots:
But it's not clear to me what you want to compare.
I think you should also dive into how to 'address' sheets, columns , ranges in Excel

For Each cl In sheets("WkSht1").columns(1).specialcells(2)
  If cl.Value <> sheets("WkSht2").range(cl.address).Value Then
     With sheets("Differences Sheet")
       .Cells(cl.Row, 1) = cl.Address(0,0)
       .Cells(cl.Row, 2) = cl.Value
       .Cells(cl.row, 3) = sheets("WkSht2").range(cl.address).Value
      End With
  End If
Next

But maybe a oneliner suffices ( cfr. the attachment):

Sub snb()
  Sheets("Blad3").Range("A1:C300") = [if(Blad1!A1:A300=Blad2!A1:A300,"",choose(column(A1:C300),address(row(A1:C300),column(A1:A300)),Blad1!A1:A300,Blad2!A1:A300))]
End Sub

[ChemistB]

Hi snb. No, that's still not doing it (even when I remove the quotes from around WkSht1 and 2 since they are string variables). I'm going to modify my attached spreadsheet above to show what I would expect as results.

[snb]

I amended my previous code and added an attachment.
See if this is what you meant.

[Colin Legg]

Hi Chemist,

I know you'd like to get to the bottom of this yourself, so I'll give you a starting point.

(1) Add Option Explicit to the top of your code module.
(2) Comment out the On Error Resume Next.

Now try to debug it. Step through the code pressing F8 (once you've managed to compile it by declaring all of your variables) and, once you've sorted out the naming of the new sheet, pay particular attention to the error thrown on this line:

If Worksheets(WkSht1).Cell.Value <> Worksheets(WkSht2).Cell.Value Then

At the moment, your On Error Resume Next (which you will now have commented out) is masking this error.

[ChemistB]

Thanks Colin, that found my incorrect variable near the end of the code and alerts me that the line you pointed out is invalid. Then whereever I had Cell as a range object, I replaced it with Range(cell.Address) (not sure why "cell" doesn't work on it's own though). Now it's working like I want it to. Thanks to both you and snb.

Okay, going to start a new thread for my next question. "In this code, I'm assuming that the used range for wksht1 and wksht2 are the same size (theoretically they should be). I want to know how to check if they are.