Udsøgning på eksakte - unikke værdier

Hejsa

Jeg er ny her på eksperten, men jeg har en problemstilling, som jeg har store problemer med.
Jeg har nogle Excel ark med en masse linier, hvor jeg skal udhente alle de unikke ord og tal fra de respektive celler,.
E.g.: Et felt med "Banan blomst 35"
bliver opdelt i tre felter til: "Banan"
                                "blomst"
                                "35"
Hvor hver tekststreng (alt skal være tekst), står i sin egen celle.
Dertil har jeg denne smarte makro, som næsten løser opgaven:

Option Explicit
Sub Word_List()
Dim F  As Object
Dim MyRG As Range
Dim LASTROW As Long

    Columns("A:A").Copy Destination:=Range("Q1")           

    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(1, 2), TrailingMinusNumbers:=True

       
    Range("A1").Select             
    LASTROW = Range("O" & Rows.Count).End(xlUp).Row
    Set MyRG = Range(Range("O1"), Range("O" & LASTROW))
    For Each F In Range("A1").CurrentRegion
        If (Application.WorksheetFunction.CountIf(MyRG, F.Value) = 0) Then
            Cells(LASTROW + 1, "O") = F.Value
            LASTROW = Range("O" & Rows.Count).End(xlUp).Row
            Set MyRG = Range(Range("O1"), Range("O" & LASTROW))
        End If
    Next F
    Range("A1").CurrentRegion.Clear
    Columns("Q:Q").Copy Destination:=Range("A1")
    Columns("Q:Q").Clear
End Sub

Problemet er, at funktionen ikke tager hensyn til case, hvilket i mit tilfælde er EKSTREMT vigtigt.
E.g.
Blå blå BLÅ skal blive til:

Blå                      Den nuværende funktion giver mig: BLÅ
blå
BLÅ

Hvordan får jeg bygge en eksakt funktion ind i makroen?