Hi
I am sure this is easy for alot of you but it is driving me nuts.
I have gotten a cell to copy from one to another and it works. Now the cell I copied to needs to be centered and bolded.
I tried the below and it will not work and I have no clue why.
If anyone knows how to do this, I would really appreciate the help.
Thank you in advance.
Warren
acivecell.Offset(1, 2).Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
I am sure this is easy for alot of you but it is driving me nuts.
I have gotten a cell to copy from one to another and it works. Now the cell I copied to needs to be centered and bolded.
I tried the below and it will not work and I have no clue why.
If anyone knows how to do this, I would really appreciate the help.
Thank you in advance.
Warren
acivecell.Offset(1, 2).Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With