Force text in cell to center & middle align

[ipbr21054]

I wish to have the text Center & Middle Aligned regardless of what the icon on taskbar shows.

I have tried the below but made no difference, also where on the sheet should it be placed as i placed it in worksheet change

     With Range("G13:G18")
     .VerticalAlignment = xlCenter
     End With

 

[6StringJazzer]

Where should it be placed? It depends on what you want it to do. If you put it in Worksheet_Change it will be applied every time there is input to any cell in the worksheet.

"regardless of what the icon on taskbar shows" This doesn't really make sense because the icons on the Ribbon will match whatever is applied to the cell, as you can see in my demo below.

This worked fine for me:

   With Range("G13:G18")
      .VerticalAlignment = xlVAlignCenter
      .HorizontalAlignment = xlHAlignCenter
   End With

Before:

After: