Bom dia, @pedrobb

Segue uma sugestão:

Private Sub TxtNumerodaObra_Enter()
    Me.TxtNumerodaObra.BackColor = RGB(255, 255, 0)
    Dim máx As Long, i As Long
    If Me.ComboTipo <> vbNullString Then
      máx = 0
      With Plan6.Range("A1").CurrentRegion
        For i = 2 To .Rows.Count
          If .Cells(i, 2) = Me.ComboTipo And .Cells(i, 3) >= máx Then máx = .Cells(i, 3)
        Next i
        Me.TxtNumerodaObra = máx + 1
      End With
    End If
End Sub

@edsonbr Perfeito! Muito Obrigado!