Faça uma pequena alteração no meu código

Question

Eu tenho usado o código abaixo, mas gostaria de ajudar a fazer uma pequena alteração. Eu preciso mudar encontrando o "15" na seguinte linha de código: "Set Found = SearchCell.Find (O que: = 15, Lookat: = xlPart)" para encontrar qualquer número com o formato 000.00.

Código atualmente em uso;

Option Explicit

Sub Found()
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet2")
Dim SearchRange As Range, SearchCell, Found As Range
Set SearchRange = ws.Range("F1:F20")
For Each SearchCell In SearchRange
    Set Found = SearchCell.Find(What:=15, Lookat:=xlPart)
    If Not Found Is Nothing Then
        Found.Interior.Color = vbRed
    End If
    Set Found = Nothing
Next SearchCell
End Sub

    

Answer 1

aqui está um código alterado:

Sub Found()
Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet2")
Dim SearchRange As Range, SearchCell As Range
Set SearchRange = ws.Range("F1:F20")
For Each SearchCell In SearchRange
    If SearchCell.NumberFormat = "000.00" Then
        SearchCell.Interior.Color = vbRed
    End If
Next SearchCell
End Sub