Estaba haciendo una macro en Excel en la cual tengo una columna llamada "programas" y en sus celdas cada valor termina con un "*", por lo que necesito hacer una macro para automatizar ese proceso, hacer click en el botón y se borren automáticamente los asteriscos del final de todas las celdas de mi columna (entiendo que se puede hacer sin macro pero necesito el proceso en un boton)


Tengo este código que me aplica solo para la celda activa pero no supe replicarlo para una columna entera.
```
    Dim xlString As String
    Dim ultimo As String
    
    ultimo = Right$(xlString, 1)
    MsgBox ultimo
        
    ActiveCell = Replace(ActiveCell, "*", "") 
```

Link Foto:
[1]: https://i.sstatic.net/vqCKR.png