vba if cell selected then change that column header to orientation 0

[robtuby]

Hi

I have this running at the moment but not doing exactly what i want

I have dates stored in D4:CP4) with data below
The dates atre formatted to orientation = -90
what the below should be doing but isn't is
all column widths to 4
change all rows to -90
then
change the active column to 33
change Columns A-C to their custom Widths
then change the active column to Orientation 0
It is however if i select the date cell it is turning it back to orientation 0
any ideas?

Please Login or Register  to view this content.

[xlbiznes]

Put this line :

Please Login or Register  to view this content.

before

Please Login or Register  to view this content.

[robtuby]

I have tried that but still no joy
If a user was to select G8 for example then G4 would change to Orientation 0


I have attached a sample workbook

Thanks

[xlbiznes]

Please try this :

Please Login or Register  to view this content.

[robtuby]

Hi

Thanks for your help

I have added one extra line to get it to work and i have attached the workbook incase anyone else wants this

Please Login or Register  to view this content.

Rob