Change Orientation of One Cell Within Header

[MSmithson]

Hello all,

Just need a little help formatting a column within the header of my worksheet. I would like the orientation of the Col marked “LIB” to be vertical in the header:

LIB becomes:

L
I
B

This only applies to the header (row 1). The column marked “LIB” is not always in the same column in each worksheet so I’m trying to write a macro that will identify this cell and change the orientation. Trying to do it with the following code, but can’t seem to get it to work:

Dim LIBV As Variant
LIBV = Array("LIB")
For ndx = LBound(LIBV) To UBound(LIBV)
Set Found = Rows("1:1").Find(LIBV(ndx), SearchDirection:=xlNext, MatchCase:=False)
If Not Found Is Nothing Then
Found.HorizontalAlignment = xlCenter
Found.VerticalAlignment = xlBottom
Found.WrapText = True
Found.Rows("1:1").Orientation = xlVertical
Found.Orientation = xlVertical
End If
Next ndx

Any help or guidance is most appreciated – thanks!

[NBVC]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here