Beto, no tópico abaixo falei sobre uma Function de Pesquisa, e pode utilizar a mesma para fazer o que pretende, ela é bem adaptavel :

viewtopic.php?f=10&t=8591&p=45418#p45418

De qualquer forma, aproveitando esta sua duvida e seu modelo, montei um exemplo utilizando esta Function, onde pesquisamos se já existe a Data e Horário na Agenda.

Ao estar adaptando, me passou pela cabeça que provavelmente a proxima questão, uma vez que você só citou sobre a Data e Horário e não disse nada sobre o profissional, mas na mesma function ou até mesmo montando outra da para verificar os 3 parametros : Data / Horário / Profissional.

De uma olhada no exemplo que anexei no tópico abaixo:

Function Pesquisar InputBox e TextBox
viewtopic.php?f=21&t=2877

[]s

Mauro realmente não tinha pensado na possibilidade de comparar com o profissional, mas realmente ela é necessária

tentei adaptar a rotina que você criou mas não tive sucesso.
se puder me dar mais uma mão com a adaptação e a rotina de comparar com profissional...

Segue meu modelo com a tentativa de adaptação.

Beto, você não teve sucesso, primeiro devido ao Valor retornado pelo Calendar1.

Desta maneira :
RefId = Calendar1.Value -'Nesta instrução o retorno é data e hora completa e você só quer a Data, então tem de formatar antes de pesquisar, altere para :
RefId = Format(Calendar1, "dd/mm/yyyy")

acrescente tambem a Variavel que capta o Valor do Combo :
Adicone a linha para captar o nome do Profissional :
sProf = cboProfissional

Depois no Modelo1 adicione a Variável para o profissional :
Public sProf As String

Na Function ProcuraRefId adicione as Variaveis:
Dim sColProf As Long

'Coluna dos Profissionais
sColProf = 3

e substitua a linha de pesquisa pela a abaixo:
If .Cells(iLin, sCol).Value = RefId And .Cells(iLin, sColProf).Value = sProf And .Cells(iLin, sColHoras).Value = RefHoras Then

Faça os testes e veja se é isto.

[]s

Exatamente isso Mauro
Obrigado outra vez

segue meu modelo se alguém precisar