hi all
I have this code that does not work
Sub replace()
Range("A1:A100").Select
Dim c As Range
For Each c In Selection
Worksheets("Sheet1").Columns("A").replace _
What:=":", replacement:=".", LookAt:=xlPart
If c.Value <> "" Then c.Value = "From " & c.Value
Next
End...