Renaming Column Headers in Excel using VBA 1

[fishtek]

I'm manipulating tables in Excel using Visual basic and as part of the code I would like to remove all text enclosed in parentheses from column headers - see below

From

To

Ive been attempting to use the example formula using VBA but cannot make it work

=LEFT(D1,FIND(" (",D1)-1)

and so forth for each header.

Thanks for any help.

 

[SkipVought]

Hi,

Assuming that this sheet is the active sheet...

Dim r As Range

For Each r In Range([A1], [A1].End(xlToRight))
   With r
      .Value = Trim(Split(.Value, "(")(0))
   End With
Next

Skip,

_{Just traded in my OLD subtlety...
for a NUance!}

 

[fishtek]

Thanks Skip. That worked great.