Hi All
The code below works fine.
But, as you can see it was from a recorded macro, apart from the first line.
Is it possible to make this code "cleaner" by removing excess code.
I have tried to make some changes but keep getting errors.
Any assistance would be appreciated.

Regards
Michael M

With range("E17:G" & lrow + 2)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Font.Size = 10
.NumberFormat = "#,##0.00"
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

One way:

With Range("E17:G" & lrow + 2)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Font.Size = 10
.NumberFormat = "#,##0.00"
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With


In article <827B1E7E-3D42-4409-9AEF-(E-Mail Removed)>,
Michael M <(E-Mail Removed)> wrote:

> Hi All
> The code below works fine.
> But, as you can see it was from a recorded macro, apart from the first line.
> Is it possible to make this code "cleaner" by removing excess code.
> I have tried to make some changes but keep getting errors.
> Any assistance would be appreciated.
>
> Regards
> Michael M
>
> With range("E17:G" & lrow + 2)
> .HorizontalAlignment = xlCenter
> .VerticalAlignment = xlBottom
> .Font.Size = 10
> .NumberFormat = "#,##0.00"
> End With
> With Selection.Borders(xlEdgeLeft)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
> With Selection.Borders(xlEdgeRight)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With