Cell reference

[nada]

I have a macro that I use for comparing columns in two different worksheets. The worksheets are identical in stucture ie there may be numbers in cells that differ but all rows and columns look the same. I want to check a certain column starting at the cell "b6". therefore i decalre at the top of the module:

option explicit
Dim tickerCell As Range
.....
I then want to do the comparison:

Private Sub compareRatings()

Dim i As Long
Set tickerCell = Range("b6")

i = i + 1
Do Until IsEmpty(tickerCell.Offset(i, 0))
If Sheets(i - 1).Range(tickerCell).Offset(i, 0) <> Sheets(i).Range(tickerCell).Offset(i, 0) Then
MsgBox "diff"
End If
i = i + 1
Loop

End Sub

there si something wrong here with the usage of the tickCell but I do not know how to write it. please help me! any help appreciated! thanks alot in advance!

 

[Richard Schollar]

You can't use IsEmpty in this way - try something like:

 Do Until tickerCell.Offset(i, 0).Value = ""

Richard

 

[Andrew Poulsom]

tickerCell is a Range object, not a reference address. Maybe try:

If Sheets(i - 1).Range(tickerCell.Address).Offset(i, 0) <> Sheets(i).Range(tickerCell.Address).Offset(i, 0) Then

When i exceeds the number of sheets you will get an error. You should loop around Worksheets.Count.