VBA to check if cell A1 in workbook 1 equals cell A1 in workbook 2

[Rerock]

Hi,
I have two workbooks open at the same time.

I would like to have a simple IF statement that checks whether cells match on both workbooks.

Ideally, it would work similar to this (which doesn't work BTW):

Sub blah_blah=blah()
If Range(Range("WORKBOOK_1_NAME").Value & "Sheet1!A1").Value = Range("NAMED_RANGE_1").Value Then
MsgBox "Match"
Else
MsgBox "No Match"
End If
End Sub

Is there is a way to modify the IF statement so that the WORKBOOK_1_NAME & range work? If it's not possible, what would be the easiest way to accomplish it?

Thanks in advance!

[mikeTRON]

Yes there is a way.

So read through this to learn about workbooks, worksheets, and ranges.
http://www.excel-easy.com/vba/workbo...et-object.html

Basically you want to use an excel cell to define the workbook
then you can use a variable to define it, then use the variable to drop into the needed code.

Option Explicit

Sub Test()

Dim OtherBookName As String

OtherBookName = Range("WORKBOOK_1_NAME").Value

If Workbooks(OtherBookName).Range("Sheet1!A1").Value = Range("NAMED_RANGE_1").Value Then

MsgBox "Match"
Else
MsgBox "No Match"
End If
End Sub

[Rerock]

I tried the code you posted, but couldn't get it to work. I then clicked on the link you posted, amended my original code a little bit, and whala; it worked! THANKS FOR THE HELP!

Here is what I ended up with:

Sub blah_blah=blah()
If Application.Workbooks(Range("WORKBOOK_1_NAME").Value).Worksheets("Sheet1").Range("A1").Value = Range("NAMED_RANGE_1").Value Then
MsgBox "Match"
Else
MsgBox "No Match"
End If
End Sub