I have the following script below, but I would like to have it search for
the word "hours" and replace it with a null value, so it would just display
1.25. I'm a little new to VB so I'm assuming that the "Select Case
cell.Value" is searches for the entire value of the cell rather than a value
within the cell. What would I need to do?



Sub MyReplace()
Dim cell As Range


For Each cell In Range("e1:e5000")


Select Case cell.Value


Case "1.25 hours"
cell = "1.25"

End Select
Next cell
Set cell = Nothing


End Sub