Try this:

Sub cleanout()
s = Array("State: ", "Phone: ", "Company: ")
For I = 0 To 2
n = Cells(Rows.Count, I + 1).End(xlUp).Row
v = s(I)
For j = 1 To n
Set r = Cells(j, I + 1)
r.Value = Replace(r.Value, v, "", 1)
Next
Next
End Sub

--
Gary''s Student - gsnu200765


"Jorge" wrote:

Hello, me again, another question to elaborate further on my last
post/question. Is it possible to creat a program/macro that would eliminate
certain words from certain columns and leave the rest of the information
intact. For example:

A1 B1 C1
State: Florida Phone: 321-555-1234 Company: ABC Store
State: New Mexico Phone: 214-555-9876 Company: XYZ, LLC.
State: Georgia Phone: 305-555-4321 Company: Stuff, Inc.

I would like to get rid off the words "State", "Phone", and "Company" so my
columns would look like this:

A1 B1 C1
Florida 321-555-1234 ABC Store
New Mexico 214-555-9876 XYZ, LLC.
Georgia 305-555-4321 Stuff, Inc.

A macro would make things so much faster for me. Thanks again!!!

Jorge