Changing fonts in all the worksheets for the last row

[beautify5]

Hello Experts,

I want a macro wherein I need help with changing the font type of the last row for all the worksheets. I have more than 20 worksheets everytime and the number of worksheets keep on changing everytime i get the report. I want to change the font type from Helvetica to Arial.

Thanks in advance.

 

[FormR]

Hi - try:

Sub t()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    ws.Rows(ws.Range("A" & ws.Rows.Count).End(xlUp).Row).Font.Name = "Arial"
Next ws
End Sub

 

[beautify5]

thanks buddy