Sub TryThis() With Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row) .Value = Evaluate("""www.""&" & .Address) End With End Sub