Pode ser que eu não tenha entendido o problema, mas tenta fazer algo desta forma:

Call SUA_MACRO(celladd, cellrow)

No Módulo:

Sub SUA_MACRO(celladd, cellrow)
...
End Sub

Quanto ao Do... While... pode substituir (com os devidos tratamentos de erros, se necessários) por exemplo:
cellrow = Application.WorksheetFunction.Match(ComboBox1.Value, Sheets("BDCadastro").Range("B:B"), 0)

Veja se atende e, caso contrário, reporte o que está retornando de errado.

Pode ser que eu não tenha entendido o problema, mas tenta fazer algo desta forma:

Call SUA_MACRO(celladd, cellrow)

No Módulo:

Sub SUA_MACRO(celladd, cellrow)
...
End Sub

Quanto ao Do... While... pode substituir (com os devidos tratamentos de erros, se necessários) por exemplo:
cellrow = Application.WorksheetFunction.Match(ComboBox1.Value, Sheets("BDCadastro").Range("B:B"), 0)

Veja se atende e, caso contrário, reporte o que está retornando de errado.

Obrigado por responder!
Você acredita que vale a pena essa alteração em termos de performance do código? Que a substituição é possível isso eu sei, quero saber se vale a pena.
Consegui fazer funcionar, nomiei as variáveis Public somente no Módulo.

Att

Final, toda implementação em qualquer código, desde que seguindo a dica do Edson que é muito importante (com os devidos tratamentos de erros, se necessários), não só na parte do Do While, mas como regra geral em todo o código onde for possível, deixarmos uma Varável como Publica para ser utilizada posteriormente representa um grande avanço na performance, uma vez que se vamos utiliza-la em seguida não precisamos fazer nova consulta ao BD.

Em sua rotina por exemplo, apesar de só ser uma parte, o ideal seria analisar o contexto todo, na linha "Sheets("BDCadastro").Range("B3").Select", não precisamos usar o Select, desde que a Sheet "BDCadastro" tenha sido referenciada antes, tambem podemos deixa-la como Publica :
De uma olhada no Modelo abaixo onde trabalhamos com um tipo de Cadastro com Front_End e o banco, a maioria a das variaveis estão como Publica.
Modelo Cadastro V3 - Acesso a outros BD + Graficos
http://www.tomasvasquez.com.br/forum/vi ... bJlHufBO2Q

Para resumir, pode-se estar alterando sua rotina por inteira, mas para isso, como disse acima teria de estudar o contexto todo, pois você utiliza instruções tipo :
If ActiveCell = ComboBox1 Then
celladd = ActiveCell.Offset(0, -1).Address
cellrow = ActiveCell.Row

End If

ActiveCell.Offset(1, 0).Select

Referindo-se a celula ativa e selecionando a mesma, e pelo que entendi na aba "BDCadastro", mas não sei qual é a proxima ação, se é só para localizar, ou fazer alguma alteração.

De uma olhada neste outro exemplo abaixo, onde temos uma Function de Pesquisa, que ao localizar o que se procura finaliza, acredito que irá ajudar em seu modelo.
Function para Pesquisa
viewtopic.php?f=28&t=2816

Espero ter ajudado, qq coisa retorne.

[]s

Final, toda implementação em qualquer código, desde que seguindo a dica do Edson que é muito importante (com os devidos tratamentos de erros, se necessários), não só na parte do Do While, mas como regra geral em todo o código onde for possível, deixarmos uma Varável como Publica para ser utilizada posteriormente representa um grande avanço na performance, uma vez que se vamos utiliza-la em seguida não precisamos fazer nova consulta ao BD.

Em sua rotina por exemplo, apesar de só ser uma parte, o ideal seria analisar o contexto todo, na linha "Sheets("BDCadastro").Range("B3").Select", não precisamos usar o Select, desde que a Sheet "BDCadastro" tenha sido referenciada antes, tambem podemos deixa-la como Publica :
De uma olhada no Modelo abaixo onde trabalhamos com um tipo de Cadastro com Front_End e o banco, a maioria a das variaveis estão como Publica.
Modelo Cadastro V3 - Acesso a outros BD + Graficos
http://www.tomasvasquez.com.br/forum/vi ... bJlHufBO2Q

Para resumir, pode-se estar alterando sua rotina por inteira, mas para isso, como disse acima teria de estudar o contexto todo, pois você utiliza instruções tipo :
If ActiveCell = ComboBox1 Then
celladd = ActiveCell.Offset(0, -1).Address
cellrow = ActiveCell.Row

End If

ActiveCell.Offset(1, 0).Select

Referindo-se a celula ativa e selecionando a mesma, e pelo que entendi na aba "BDCadastro", mas não sei qual é a proxima ação, se é só para localizar, ou fazer alguma alteração.

De uma olhada neste outro exemplo abaixo, onde temos uma Function de Pesquisa, que ao localizar o que se procura finaliza, acredito que irá ajudar em seu modelo.
Function para Pesquisa
viewtopic.php?f=28&t=2816

Espero ter ajudado, qq coisa retorne.

[]s

Muito obrigado pela resposta vou dar uma olhada nos links sugerido e dar uma estudada no que foi feito.
Att,
Final