Delete Columns based on a specific word

[smugglersblues]

What would the code be to delete a column if it contains a word such as "Time"? It can be any column.

[JieJenn]

You said A column, so I am assuming just one column? If so

Columns(Cells.Find("Time").Column).Delete

[smugglersblues]

Hi,
I just need one column. It could be several but one will work. I can run the macro for several different columns. How can I specify a specific cell with a specific word to delete the column?

[JieJenn]

what do you mean? Can you post a sample workbook?

[smugglersblues]

I suppose I didn't give enough infmortation lol. It needs to be set to a specific cell such as B2. That way it doesnt find the wrong cell and delete the wrong column.

You said A column, so I am assuming just one column? If so

Columns(Cells.Find("Time").Column).Delete

[JieJenn]

Columns(Cells.Find(Range("B2").Column).Delete

[smugglersblues]

What I meant is that it needs to find the word "Time" in B2 and delete that column. If that word isn't in B2 then it should leave the column as it is.

[JieJenn]

If Range("B2").Value = "Time" Then Columns("B").Delete

[smugglersblues]

Thanks JieJenn, exactly what I was looking for.