How to Insert a Title When Using an Inserting New Column Macro

Hi Everyone,

The below macro will insert a new column adjacent to a cell in row 10 whenever the cell contains anything but blank,space, or the word (spare).

What I'm trying to figure out is how to include a title of the inserted column. The title would appear only in the column inserted and be in row 10.

Any suggestions to modify the below code to do so?

Please Login or Register  to view this content.

cells(10,i).offset(0,1).value = "Title"

Would I put that after the else statement, as in:

Please Login or Register  to view this content.

Yes thats right.