How to Center Formula Result Cell in VBA

[aryaden]

I currently have this code which puts an X in a selected range based on a COUNTIF Formula. I would like these Xs to be centered in the cells

Set Rng = Range(Cells(r + 1, "C"), Cells(r + counter, "C"))
Cells(r, "C").Formula = "=IF(COUNTIF(" & Rng.Address(0, 0) & ", ""X""), ""X"", "" "")"
Cells(r, "C").Copy Range(Cells(r, "D"), Cells(r, lc))
Application.CutCopyMode = False

Currently I have tried: Rng.HorizontalAlignment = xlCenter

Thank you for the help in advance!

 

[Alex Blakenburg]

Does it work if you change it to this ?

Range(Cells(1, "C"), Cells(1, lc)).EntireColumn.HorizontalAlignment = xlCenter

 

[aryaden]

Does it work if you change it to this ?

Range(Cells(1, "C"), Cells(1, lc)).EntireColumn.HorizontalAlignment = xlCenter

That worked perfectly, Thank you!

 

[Alex Blakenburg]

Thanks for letting us know. Glad we could help.