Talvez isso dê certo...

Sub aaaaaaa()
Dim LinInicial As Integer
Dim FatorHom(1 To 3) As Integer


LinInicial = 4
Do

If NumAterro(Cells(LinInicial, "e")) = NumAterro(Cells(LinInicial, "g")) Then

    Cells(LinInicial, "s") = IntervaloAterro(Cells(LinInicial, "e").Value)

    Else

End If
LinInicial = LinInicial + 1
Loop Until Cells(LinInicial, "a") = ""
DMT
End Sub

Function IntervaloAterro(num) As String
Dim txtiniAterro As String
Dim txtfimAterro As String

LinhaListagem = 4

Do
    If (num >= Sheets("Distribuição Longitudinal").Cells(LinhaListagem, "e").Value And num <= Sheets("Distribuição Longitudinal").Cells(LinhaListagem, "g").Value) Then
        txtiniAterro = TxtEstaca(Sheets("Distribuição Longitudinal").Cells(LinhaListagem, "e").Value)
        txtfimAterro = TxtEstaca(Sheets("Distribuição Longitudinal").Cells(LinhaListagem, "g").Value)
        Exit Do
    End If
    LinhaListagem = LinhaListagem + 1
Loop Until Sheets("Distribuição Longitudinal").Cells(LinhaListagem, "a") = ""

IntervaloAterro = Fix(txtiniAterro) & " a " & Fix(txtfimAterro)
End Function

Abrç!

Boa dia, ate que na primeira linha deu certo, porem travou travou e deu erro. justamente na linha modificada Erro em tempo de execução '13': Tipos incompativeis.

IntervaloAterro = Fix(txtiniAterro) & " a " & Fix(txtfimAterro)

obrigado pela ajuda, estamos chegando perto.

Você consegue postar sua planilha pra gente dar uma olhada?

Abrç!

a função Int ou Fix, são aplicadas somente a numeros, qualquer dado diferente, como texto/string irá gerar um erro.
Talvez esse seja o motivo do erro

Experimente:

IntervaloAterro = Fix(CDbl(txtiniAterro)) & " a " & Fix(CDbl(txtfimAterro))

EDIT: Caro Reinaldo estava lendo um pouco sobre Funções de Conversão e acho que entendi. Nesse caso você converte a String em Double para depois usar o Fix Correto?

exatamente

Reinaldo por favor me ajude

Pelo que você me explicou esse código abaixo deveria dar erro certo?

Sub teste()
Dim num As String
num = 12.16547
MsgBox Fix(num)
End Sub

Mas ele está retornando o numero 12, mesmo num sendo uma Sting? Você saberia dizer o que acontece?
quanto mais penso nisso mais eu to me confundindo rs

Desde já, agradeço..

O VBA utiliza, por padrão para numeros e datas , o sistema Americano. Em números ponto e o separador decimal e virgula separador de milhar.
No seu exeplo, está sendo, creio eu, considerado/assimilhado como numero com cinco casas decimais.

Entendo.. Obrigado pela sua explicação

Abrç!