First, Thanks Rado for your help. Here is the entire
scenario.
I have a list box of 25 stocks (D20 new name NewStock) I
want to be able to select a stock from that list and have
Excel automatically perform the find and Replace command,
replacing the current stock data (A1:K18). So far it
looks like this. As you can probably see, I have made
some error/s. Please help

Public Sub Retrieve_Stock()

OldStock = Cells("H2").Value
NewStock = Cells("D20").Value
Application.StatusBar = "Retrieving data on NewStock..."
Range("A1:K18").Replace OldText, NewText
End Sub