Macro pa agregar apostrofe en seleccion de celdas

Bueno, soy noob en los macros de excel. Y necesito generar un script para importar unos datos en una base de datos. Y como se sabe para q el script corra, las fechas se las tiene que poner el apostrofe adelante para que se vuelva caracter. Entoces necesito un macro que me aumente el apostrofe en todas la fechas.
Hice algo asi, pero algo solo me lo cambia en la primera fecha
Sub AumentaApostrofe()Selection.Replace What:=ActiveCell.Value, Replacement:="'" & ActiveCell.Value, LookAt:=xlPart, _SearchOrder:=xlByRows, MatchCase:=FalseEnd Sub
Seguro todo esta mal, asi q espero q me ayuden