Makroda adımlayarak incelemede sıkıntı !!!

[Tevfik_Kursun]

Merhaba Arkadaşlar,
F8 ile makrolarda kontrol yaparken, eğer birleştirme için KTF kullanmışsam imleç mutlaka KTF nin arasına giriyor. Muhtemel ki bir şeyler tetikliyor. Neden olabilir acaba?

Kullandığım Birleştirme KTF leri

Function birleştirme(hedef As Range, Optional ayırac As String = "") As String
    Dim alan As Range
    Dim sonuc As String
      For Each alan In hedef
        If alan.Value <> "" Then
            sonuc = sonuc & ayırac & alan.Value
        End If
    Next alan
    If sonuc <> "" Then
        sonuc = Mid(sonuc, Len(ayırac) + 1)
    End If
    birleştirme = sonuc
End Function

Function ÇOKLU_BİRLEŞTİR(Alan As Range)
'    Function ÇOKLU_BİRLEŞTİR(Alan As Range, Optional Ayıraç As String = " - ")
    Dim Veri As Range
    Application.Volatile True
    For Each Veri In Alan
        If Veri.Value <> "" Then
            If ÇOKLU_BİRLEŞTİR = "" Then
                ÇOKLU_BİRLEŞTİR = Veri.Value
            Else
                ÇOKLU_BİRLEŞTİR = ÇOKLU_BİRLEŞTİR & Ayıraç & Veri.Value
            End If
        End If
    Next
End Function

Belki birilerinin işine de yarayabilir.
Saygılarımla