Found value in quotes not matching cell value without quotes, VBA Excel

[Rowland Hamilton]

Attempting to match acct #s on source sheet with account numbers on Template but the numbers on the source are = to the cell value while the numbers on the template are equal to finding the source cell value in the template. Let me explain with code.

Set Source value:

Set FirstIO = zfir.Range("e8")

Set Template value:

Set CheckIO = Range("Accounts").Find(IO, LookIn:=xlValues)

When I get here:

If FirstIO = CheckIO.Value Then

I get a mismatch because
FirstIO = 3333333 and CheckIO = "3333333"

How do I make these 2 values Match?

 

[Jonmo1]

Perhaps

If FirstIO = Val(CheckIO.Value) Then

 

[Rowland Hamilton]

Thanks, works. Also, I was wrong, the If was:

If FirstIO = CheckIO Then[\CODE]
so your correction works great as:
[CODE]If FirstIO = Val(CheckIO) Then[\CODE]