Macro to Format Range

[howard]

I have a macro to format the Font Name and size for a range on a particular sheet but the font is not changed when running the macro

 Sub Format_Statement()
Dim LR As Long

With Sheets("statement")
 LR = .Cells(.Rows.Count, "A").End(xlUp).Row

 With .Range("a1:E" & LR)
 .Font.Name = "Arial"
.Font.FontStyle = "Regular"
.Font.Size = 10
.Font.Bold = False
 
        End With
          End With
          

 End Sub

It would be appreciated if someone could test and amend my code

 

[Michael M]

Works fine for me !
The "statement" sheet isn't protected is it ??

 

[Michael M]

Bit shorter

Sub Format_Statement()
With Sheets("statement").Range("A1:E" & Cells(Rows.Count, "A").End(xlUp).Row)
        .Font.Name = "Arial"
        .Font.FontStyle = "Regular"
        .Font.Size = 10
        .Font.Bold = False
    End With
 End Sub

 

[howard]

Thanks for the help. Much appreciated

 

[Michael M]

Glad it worked for you...