Boa noite!!

Na pesquisa do fórum há explicações para enteder esse erro.

Com certeza há alguma referencia errada ou não referenciada!!

As duas linhas do seu Formulário frmOrcamento, está gerando o problema.

    'Call CalculaNumeroDoOrçamento
    'Call contRegistrosPlan5

Veja o que um dos maiores MVP's fala do erro em:
http://social.msdn.microsoft.com/Forums ... rum=isvvba

Att

Experimente:
altere: Set ws=Worksheet(2) para : Set ws = Worksheets("BCODADOS") -->Por questão de segurança caso mude ou insira uma nova planilha na sequencia existente.
altere na rotina -->CalculaNumeroDoOrçamento a definição do numero de linhas
de:worksheet("Plan2")...
para: a = ws.UsedRange.Rows.Count porem minha preferência seria assim: a = ws.Cells(Cells.Rows.Count, "A").End(xlUp).Row
Na rotina --> contRegistrosPlan5
altere: ContarRegistrosPan5 = Worksheets("Plan5").UsedRange.Rows.Count
Para: ContarRegistrosPan5 = Worksheets("RELPESQ").UsedRange.Rows.Count ou sheets("RELPESQ").Cells(Cells.Rows.Count, "A").End(xlUp).Row