Replace Method
It replaces the data
Private Sub CommandButton1_Click()
Range("A1:A5").Replace "abc", "pqr"
End Sub