I am hoping to increase the line thickness of certain rows of a report
(sheet2) that I automatically create from a table of data (sheet1). The
condition for the row thickness is the presence of data in Collumn A (between
rows 13 and 500). Only the top edge of these row cells (between columns A and
G) need to have a medium thickness while the rest are to be thin thickness
except:

To add a little more complexity, there is to be no vertical line between
columns A and B and on the far left and far right of the report (left of
column A and right of column G).

Any assistance would be greatly appreciated.

Heath

try this

Sub setunderline()
With Range("b16:d21")
.Borders.LineStyle = xlNone
.Borders(xlInsideHorizontal).Weight = xlThick
End With
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"HeathBarker" <(E-Mail Removed)> wrote in message
news:191B66C9-65AE-4667-879D-(E-Mail Removed)...
>I am hoping to increase the line thickness of certain rows of a report
> (sheet2) that I automatically create from a table of data (sheet1). The
> condition for the row thickness is the presence of data in Collumn A
> (between
> rows 13 and 500). Only the top edge of these row cells (between columns A
> and
> G) need to have a medium thickness while the rest are to be thin thickness
> except:
>
> To add a little more complexity, there is to be no vertical line between
> columns A and B and on the far left and far right of the report (left of
> column A and right of column G).
>
> Any assistance would be greatly appreciated.
>
> Heath

Range("A13:G500").Borders(xlEdgeTop).Weight = xlMedium

"HeathBarker" wrote:

> I am hoping to increase the line thickness of certain rows of a report
> (sheet2) that I automatically create from a table of data (sheet1). The
> condition for the row thickness is the presence of data in Collumn A (between
> rows 13 and 500). Only the top edge of these row cells (between columns A and
> G) need to have a medium thickness while the rest are to be thin thickness
> except:
>
> To add a little more complexity, there is to be no vertical line between
> columns A and B and on the far left and far right of the report (left of
> column A and right of column G).
>
> Any assistance would be greatly appreciated.
>
> Heath

corrected for your criteria
Sub setunderline()
With Range("a13:g501")
.Borders.LineStyle = xlNone
.Borders(xlInsideHorizontal).Weight = xlmedium ' thick thin
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Don Guillett" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> try this
>
> Sub setunderline()
> With Range("b16:d21")
> .Borders.LineStyle = xlNone
> .Borders(xlInsideHorizontal).Weight = xlThick
> End With
> End Sub
> --
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> (E-Mail Removed)
> "HeathBarker" <(E-Mail Removed)> wrote in message
> news:191B66C9-65AE-4667-879D-(E-Mail Removed)...
>>I am hoping to increase the line thickness of certain rows of a report
>> (sheet2) that I automatically create from a table of data (sheet1). The
>> condition for the row thickness is the presence of data in Collumn A
>> (between
>> rows 13 and 500). Only the top edge of these row cells (between columns A
>> and
>> G) need to have a medium thickness while the rest are to be thin
>> thickness
>> except:
>>
>> To add a little more complexity, there is to be no vertical line between
>> columns A and B and on the far left and far right of the report (left of
>> column A and right of column G).
>>
>> Any assistance would be greatly appreciated.
>>
>> Heath
>