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

Didn't see the original thread (better to stay in the original) but here is
the help on replace.
Do you want to replace inside a string or replace a string?
Replace Function


Description

Returns a string in which a specified substring has been replaced with
another substring a specified number of times.

Syntax

Replace(expression, find, replace[, start[, count[, compare]]])

The Replace function syntax has these named arguments:

Part Description
expression Required. String expression containing substring to
replace.
find Required. Substring being searched for.
replace Required. Replacement substring.
start Optional. Position within expression where substring search is
to begin. If omitted, 1 is assumed.
count Optional. Number of substring substitutions to perform. If
omitted, the default value is -1, which means make all possible
substitutions.
compare Optional. Numeric value indicating the kind of comparison to
use when evaluating substrings. See Settings section for values.



Settings

The compare argument can have the following values:

Constant Value Description
vbUseCompareOption -1 Performs a comparison using the setting of the
Option Compare statement.
vbBinaryCompare 0 Performs a binary comparison.
vbTextCompare 1 Performs a textual comparison.
vbDatabaseCompare 2 Microsoft Access only. Performs a comparison based
on information in your database.



Return Values

Replace returns the following values:

If Replace returns
expression is zero-length Zero-length string ("")
expression is Null An error.
find is zero-length Copy of expression.
replace is zero-length Copy of expression with all occurences of find
removed.
start Len(expression) Zero-length string.
count is 0 Copy of expression.



Remarks

The return value of the Replace function is a string, with substitutions
made, that begins at the position specified by start and and concludes at
the end of the expression string. It is not a copy of the original string
from start to finish.


--
Don Guillett
SalesAid Software

"Colette" wrote in message
...
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

That is the replace function added in Excel 2000. I believe she wants the
Replace method which appears OK.

This worked for me:

Public Sub Retrieve_Stock()
Dim OldStock As String
Dim NewStock As String
OldStock = Range("H2").Value
NewStock = Range("D20").Value
Application.StatusBar = "Retrieving data on NewStock..."
Range("A1:K18").Replace OldStock, NewStock
Application.StatusBar = False
End Sub

--
Regards,
Tom Ogilvy


Don Guillett wrote in message
...
Didn't see the original thread (better to stay in the original) but here
is
the help on replace.
Do you want to replace inside a string or replace a string?
Replace Function



--
Don Guillett
SalesAid Software


<snip

"Colette" wrote in message
...
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

Thanks so much. That did it for me. Perfect.
-----Original Message-----
That is the replace function added in Excel 2000. I
believe she wants the
Replace method which appears OK.

This worked for me:

Public Sub Retrieve_Stock()
Dim OldStock As String
Dim NewStock As String
OldStock = Range("H2").Value
NewStock = Range("D20").Value
Application.StatusBar = "Retrieving data on NewStock..."
Range("A1:K18").Replace OldStock, NewStock
Application.StatusBar = False
End Sub

--
Regards,
Tom Ogilvy


Don Guillett wrote in message
...
Didn't see the original thread (better to stay in the
original) but here
is
the help on replace.
Do you want to replace inside a string or replace a
string?
Replace Function



--
Don Guillett
SalesAid Software


<snip

"Colette" wrote
in message
...
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






.

Thanks for your insight. I want to replace a string. I
will not need start, count or compare.

Where I say "Old Text New Text" should that not be equal
to my new names of OldStock and NewStock? and how do I
write that?
-----Original Message-----
Didn't see the original thread (better to stay in the
original) but here is
the help on replace.
Do you want to replace inside a string or replace a
string?
Replace Function


Description

Returns a string in which a specified substring has been
replaced with
another substring a specified number of times.

Syntax

Replace(expression, find, replace[, start[, count[,
compare]]])

The Replace function syntax has these named arguments:

Part Description
expression Required. String expression containing
substring to
replace.
find Required. Substring being searched for.
replace Required. Replacement substring.
start Optional. Position within expression where
substring search is
to begin. If omitted, 1 is assumed.
count Optional. Number of substring substitutions
to perform. If
omitted, the default value is -1, which means make all
possible
substitutions.
compare Optional. Numeric value indicating the
kind of comparison to
use when evaluating substrings. See Settings section for
values.



Settings

The compare argument can have the following values:

Constant Value Description
vbUseCompareOption -1 Performs a comparison using
the setting of the
Option Compare statement.
vbBinaryCompare 0 Performs a binary comparison.
vbTextCompare 1 Performs a textual comparison.
vbDatabaseCompare 2 Microsoft Access only.
Performs a comparison based
on information in your database.



Return Values

Replace returns the following values:

If Replace returns
expression is zero-length Zero-length string ("")
expression is Null An error.
find is zero-length Copy of expression.
replace is zero-length Copy of expression with all
occurences of find
removed.
start Len(expression) Zero-length string.
count is 0 Copy of expression.



Remarks

The return value of the Replace function is a string,
with substitutions
made, that begins at the position specified by start and
and concludes at
the end of the expression string. It is not a copy of
the original string
from start to finish.


--
Don Guillett
SalesAid Software

"Colette" wrote in
message
...
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




.