Hi every one
This error is aper in my program It's use it work ok

Here is the code

////////////////////////////////
Public Sub ClearSheet()
Dim Ws As Worksheet
Set Ws = ThisWorkbook.Worksheets("GLedger")
With Ws
With .Range("A3:G65536")
.Clear
With .Font
.Name = "Arial"
.FontStyle = "º¸Åë"
.Size = 9
End With
End With
.Range("A3:D65536").NumberFormatLocal = "@"
(the error in theis line--) .Range("E3:G65536").NumberFormatLocal
= "#,##0.00_ ;[»¡°*]-#,##0.00 "
.Range("J1").Activate
.Range("J23").Activate
End With

Set Ws = Nothing
End Sub
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\