Bom dia.
Altere o código do seu botão do form para:

Private Sub CommandButton1_Click()
 Dim ulinha As Long
 ulinha = Plan1.Cells(Cells.Rows.Count, 1).End(3).Row
 Dim sprocurado As String
 Dim nprocurado As Long
 procurado = Me.TextBox1.Text
 
 If VBA.IsNumeric(Me.TextBox1.Text) Then
 nprocurado = VBA.CLng(Me.TextBox1.Text)
 
        For i = 2 To ulinha
        
            If Plan1.Cells(i, 1) = nprocurado And Plan1.Cells(i, 1).Font.Bold = True Then
            
                MsgBox "Produto já cadastrado na linha " & i
                        
            
            End If
        
        
        Next i
 
 
 End If
 
End Sub

e veja se é esse o resultado esperado.

Perfeito, matou a pau.
Obrigado.