tekst toevoegen aan niet-lege cellen

[MichielM80]

Ik wil in een bestand aan alle niet-lege cellen de tekst "PO: " toevoegen.

Dus:

Auto -> PO: Auto
Fiets -> PO: Fiets

Bus -> PO: Bus

Iemand een idee wat voor formule daarvoor gebruikt kan worden?

 

[Wigi]

Bvb.

Sub woordtoevoegen()

    Dim r As Range
    
    For Each r In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, xlTextValues)
    
        r.Value = "PO: " & r.Value
    
    Next

End Sub

Wigi