vb for font / alignment etc

[Trevor3007]

good day,

I know I can do part via'record macro, but there is some code that I do not have any idea on 'how to'?

Could some kind coder sort some vb so when any cell within the range A1- S1000 changes the VB will auto run to apply the following:-


Font & size
Range a1 – s 1000
Calibri Light,16
Alignment
Range a1 – s1000
Centre , middle

Goto last cell used
Font & size
Range a1 – s 1000
Calibri Light,16
Alignment
Range a1 – s1000
Centre , middle

Goto last cell used

Hoping someone can sort?

MTIA
Trevor3007

 

[DanteAmor]

Try this. Put the following code in the events of your sheet.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.ScreenUpdating = False
    With Range("A1:S1000")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .Font.Name = "Calibri Light"
        .Font.Size = 16
    End With
End Sub

SHEET EVENT
Right click the tab of the sheet you want this to work, select view code & paste the code into the window that opens up.

 

[Trevor3007]

morning danteamor,

Thank you ...it works a treat & I also Incorporated adding 'all borders' too ..yeah nice one.

Have great day & lovely Easter too.
KR
Trevor3007

 

[DanteAmor]

I'm glad to help you. I appreciate your kind comments.

 

[Trevor3007]

NP & well deserved too :}