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

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

For example!

Your code does exactly what I want except... I would like to select more
than one cell in the same row. For example;

The search finds the value "total" in A2.
I then want it to select from A2:A10 and format the entire selection. Is
that possible or is this an entirelly different beast?

"Don Guillett" wrote:

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

i'll chime in here and modify don's code, since you said it's what you want

Sub insertline()
For Each c In Range("a2:a100")
If UCase(c) = "TOTAL" Then

With c.Resize(9).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
Next c
End Sub

--


Gary

"AirgasRob" wrote in message
...
For example!

Your code does exactly what I want except... I would like to select more
than one cell in the same row. For example;

The search finds the value "total" in A2.
I then want it to select from A2:A10 and format the entire selection. Is
that possible or is this an entirelly different beast?

"Don Guillett" wrote:

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

Don's code examines the contents of each cell in the range from A2 thru A100
and formats according to contents. Change:

For Each c In Range("a2:a100")
to:
For Each c In Selection

Then you first select any group of cells and then run the macro.
--
Gary''s Student - gsnu200806


"AirgasRob" wrote:

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

Thank you, I didn't know I could do that. I have some other worksheets where
this will come in very handy.

"Gary''s Student" wrote:

Don's code examines the contents of each cell in the range from A2 thru A100
and formats according to contents. Change:

For Each c In Range("a2:a100")
to:
For Each c In Selection

Then you first select any group of cells and then run the macro.
--
Gary''s Student - gsnu200806


"AirgasRob" wrote:

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