Example layout and cells desired


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"AirgasRob" wrote in message
...
Thanks to Don Guillett I found the below code and it works great. But I
need
it to select more than one cell to format. Is it possible to modify the
code
to select several cells in the same row?

Sub insertline()
For Each c In Range("a2:a100")
If UCase(c) = "TOTAL" Then
With c.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
Next c
End Sub