How to Center Align Cells in VBA in Given Range

[aryaden]

I would like to center all cells in a worksheet that is not Columns A and B and Rows 1, 2, and 3

I am using this code to identify the last column and ow with data in it.

lr = Cells(Rows.Count, "A").End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column

I also am trying to use ".HorizontalAlignment = xlCenter"

Thanks for all the help!

 

[My Aswer Is This]

Try this:

Sub Center_Me()
'Modified 7/19/2021  12/31/1899 12:13:38 AM  EDT
Application.ScreenUpdating = False
Dim lc As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column
Cells(4, 3).Resize(Lastrow - 3, lc - 2).HorizontalAlignment = xlCenter
Application.ScreenUpdating = True
End Sub

 

[Fluff]

Duplicate to: How to Center Formula Result Cell in VBA

In future, please do not post the same question multiple times. Per Forum Rules (#12), posts of a duplicate nature will be locked or deleted.

In relation to your question here, I have closed this thread so please continue in the linked thread.