Need help with Type Mismatch Runtime error 13 on macro.

[cgatlan]

I've getting a type mismatch runtime 13 error.

Here's the code:

Sheets("Data").Activate

  Dim u As Integer
  Dim na As String
  na = "#N/A"
      u = 2
    Do
     If Cells(u, "W").Value = na Then
       MsgBox "test"
        End If
   u = u + 1
   Loop Until Cells(u, "A").Value = ""

The formula Bar for Cell W2 shows "=VLOOKUP($A2,Groups!$B:$J,2,FALSE)"
The Actual cell shows the result, which is a string "United Kingdom"
The Format of the Column is General.

I also tried copying the column and pasting as values, but I still get the error message when running the code.

Any help is much appreciated.

Thank You

 

[syntaxed]

You could try changing:

If Cells(u, "W").Value = na Then

To:

If Cells(u, "W").Text = na Then

 

[cgatlan]

Thanks syntaxed,

That fixed it

Cheers

 

[AlphaFrog]

Or this...

If WorksheetFunction.IsNA(Cells(u, "W")) Then