Hi,
Are you reading the cell into a variable, or do you want to change the cell on the worksheet?
If the latter, try:
Sub test()
Dim cell As Range
For Each cell In Selection
cell = WorksheetFunction.Substitute(cell, "Cash Left:", "") + 0
Next cell
End Sub
Note also that you cannot read your example into an Integer variable. Change it to Long or Double.
myVari = WorksheetFunction.Substitute(cell, "Cash Left:", "") + 0
If you have Excel 2000 or XP, I believe there is a Replace function that can be used instead of worksheetfunction.substitute
HTH,
Jay
EDIT: Scratch this answer. Mark's is nicer.
This message was edited by Jay Petrulis on 2002-04-22 13:26