Como voce não disponibilizou o código e nem a planilha segue um exemplo

o código abaixo, usa uma funcção chamada "verifica" onde retorna verdadeiro ou falso
caso a variável a seja maior, menor ou igual que dez

caso sim, a condição continua, caso não, a função usa exit sub

Sub check()
Dim a As Integer
a = 20
If verifica(a) = True Then
MsgBox a & " é maior que dez"
Else
MsgBox a & " não é maior que dez"
Exit Sub
End If
End Sub

Function verifica(num As Integer)
verifica = IIf(num > 10, True, False)
End Function

Obrigado, acabei integrando tudo so numa mesma macro. Mas agradeço a sua ajuda !

E nao teria como mandar a Planilha nao fiz um molde e a que estou usando possui quase 8Mb

Abracos

Andre