shorten codes in VBA

[SilentRomance]

hello guys how do I shorten this codes?

ws.Columns("A").ColumnWidth = 8.43
ws.Columns("A").HorizontalAlignment = xlCenter
ws.Columns("A").NumberFormat = "_(#,##0.00_);_(#,##0.00);_(""_""??_);_(@_)"

 

[RoryA]

You could use:

With ws.Columns("A")
   .ColumnWidth = 8.43
   .HorizontalAlignment = xlCenter
   .NumberFormat = "_(#,##0.00_);_(#,##0.00);_(""_""??_);_(@_)"
End With

 

[KOKOSEK]

I do not know what kind of shortening you expect.

With ws.Columns("A")
    .ColumnWidth = 8.43
    .HorizontalAlignment = xlCenter
    .NumberFormat = "_(#,##0.00_);_(#,##0.00);_(""_""??_);_(@_)"
End With

 

[SilentRomance]

Thanks guys!