Replace text in a specfic cell

[Gregfox]

I would like to replace some text in a specfic cell, the cell contains thr following;
'As of Sep 4 2018'

I would like to replace 'As of' with blank that is I want to remove 'As of'

using Excel 2007 on a PC

 

[Rick Rothstein]

If it's just one cell try

[B][COLOR="#FF0000"]Range("A8").Value = Split(Range("A8").Value, "of")(1)[/COLOR][/B]

or

Range("A8").Value = CDate(Split(Range("A8").Value, "of")(1))

to convert to a date

You should either add a space character after the word "of" or surround the Split function calls with a Trim function call in order to remove the leading space that the red highlighted line of code will leave at the beginning of the value it returns (the space comes from the one after the words "As of"). You do not need to do this with your second line of code as the CDate function will "absorb" the space when it does its conversion.