[VBA] Replace σε κελιά

[dmarop]

Καλησπέρα σας,

Θα χρειαστώ για ακόμη μια φορά την βοήθειά σας.

Χρησιμοποιώ τον εξής κώδικα που θέλω να κάνω Replace μόνο στην περίπτωση που υπάρχει μια ολόκληρη λέξη σε μέρος ενός κελιού.

Παράδειγμα: Στον κώδικα έχω βάλει να γίνεται αντικατάσταση του ονόματος Αγαπη αλλά μου αντικαθιστά μέρος και άλλων ονομάτων, π.χ.σ το όνομα Αγαπητός μου αφήνει μόνο τος, και στον Αγαπήνωνρ μου αφήνει νωνρ κλπ.

Sub FindReplace()
    Dim rngFalse As Range
    Dim oNameFalse As String
    Set rngFalse = Range("L3:L4535")

        oNameFalse = "Αγαπη"

        Columns("M:M").Select
        Selection.Replace What:=oNameFalse, Replacement:="", LookAt:=xlPart, _
                          SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
                          ReplaceFormat:=False
    
End Sub

Ευχαριστώ εκ των προτέρων.

Φιλικά,
Δημήτρης