Find something not equal

[rjwebgraphix]

Is there a way to find something that is not equal to a value or is the best bet still this looped if statement?

Dim HdrRng As Range
Dim BadFile As Boolean
Dim MixedPlnt As Boolean.
 
Set HdrRng = Rows("4:4")
Set PlntFound = HdrRng.Find("Plnt", [A4], , xlWhole, xlByColumns, xlPrevious)
    If Not PlntFound Is Nothing Then
        PlntCol = HdrRng.Find("Plnt", [A4], , xlWhole, xlByColumns, xlPrevious).Column
 lrow = 6
 Do While Cells(lrow, PlntCol) <> ""
     Cells(lrow, PlntCol).Value = RTrim(Cells(lrow, PlntCol))
     If Cells(lrow, PlntCol) <> 520 Or Cells(lrow, PlntCol) <> 520 Then
         MixedPlnt = True
         Exit Do
     End If
 lrow = lrow + 1
 Loop
    Else
        BadFile = True
    End If

I'm primarily talking about this section....

 Do While Cells(lrow, PlntCol) <> ""
     Cells(lrow, PlntCol).Value = RTrim(Cells(lrow, PlntCol))
     If Cells(lrow, PlntCol) <> 520 Then
         MixedPlnt = True
         Exit Do
     End If
 lrow = lrow + 1
 Loop

Just with 16000 rows, it takes a while and looking for a faster way.

Thanks

 

[kpark91]

A really easy way to make your run code faster is to add
Application.ScreenUpdating = False
in front of your code

and Application.ScreenUpdating = True at the end of your code.

And the reason why your code takes so long is because your find function, which searches a match in the whole worksheet.
If you can, toning down on your search area is recommended.

 

[rjwebgraphix]

And the reason why your code takes so long is because your find function, which searches a match in the whole worksheet.
If you can, toning down on your search area is recommended.

The find is plenty speedy, it's only looking on row 4 anyway to determine if it finds the right header label as well as which column the header label is in.

What takes so long is having to loop through 16000 rows of data to see if any of the rows have a value that is not 520.

If Cells(lrow, PlntCol) <> 520 Then

I was just hoping there was a way to do a find to see any value in that Column (PlntCol) is not 520.