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
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

On Jul 3, 4:28 pm, sahm wrote:
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
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\



Hi it's me agen
the error NO is 1004 Unable to set the NumberFromatLocal Property of
the Range Class

On Jul 3, 11:28 pm, sahm wrote:
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
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Hi Sahm

There appears to be some garbage characters in the second
NumberFormatLocal statement between the bracket characters [].
Removing them made it work ok on my system. I couldn't work out what
the characters represent, but usually it's a color word like [Red] or
a conditional expression such as [100]

Cheers
David

On Jul 3, 4:36 pm, wrote:
On Jul 3, 11:28 pm, sahm wrote:



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
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

Hi Sahm

There appears to be some garbage characters in the second
NumberFormatLocal statement between the bracket characters [].
Removing them made it work ok on my system. I couldn't work out what
the characters represent, but usually it's a color word like [Red] or
a conditional expression such as [100]

Cheers
David

Dear Mr. David
Thank you for your Replay
It's Work with me
Best
Sahm