erase spaces

[kin]

Hi

I have this code

Sub Macro1()
'
'

'
Range("a1:az20000").Select
ActiveCell.Selection
With ActiveCell.Characters(Start:=1, Length:=18).Font
.Name = "Arial"
.FontStyle = "¸íôïíá"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With

End Sub

and would like to erase the first spaces from wherever they are found but there is something wrong with the code can you help me?

 

[SteveO59L]

Try Trim()

 

[Legacy 68668]

try

Sub test()
With Range("a1:az20000")
    .Value = [if(a1:az20000<>"",trim(a1:az20000),"")]
    With .Characters(1, 18).Font
        .Name = "Arial"
        .FontStyle = "¸íôïíá"
        .Size = 10
        .ColorIndex = 1
    End With
End With
End Sub