Search for and extract word from a cell

**hmatharo** · 12-30-2007, 10:08 PM

How would you write VBA code that would search a cell (containing words and numbers) for a particular word, pull that word out of the cell and place it into the next column over?

Example:

Cell contains the string "Happy New Year 2008 Be safe and have fun 03010"

How would I pull out the word "Year" and put it into the next column and leave everything else in the cell?

Thanks!

**mrice** · 12-30-2007, 10:21 PM

Try

Sub Test()
For Each Cell In Selection
    If InStr(Cell, "Year") <> 0 Then Cell.Offset(0, 1) = "Year"
Next Cell
End Sub

Search for and extract word from a cell

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Search for and extract word from a cell

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions