Hi, here is my problem. I will have data in different cells each time such
as A1:C10, A1:H100, for example. What i need is macro that will insert a dash
(-) under the last line of value in each cell.

For example if there are values in cells A1:C10 I need a dash in each of the
cells A11:C11.

Thanks in advance

This will work for any table, even in the middle of a worksheet:


Sub underline()
Dim r, rr, rrr As Range

Set r = Selection

nLastRow = r.Rows.Count + r.Row
nFirstColumn = r.Column
nLastColumn = r.Columns.Count + r.Column - 1
Set rr = Range(Cells(nLastRow, nFirstColumn), Cells(nLastRow, nLastColumn))

For Each rrr In rr
rrr.Value = "_"
Next
End Sub

Just select the table and run the macro.
--
Gary's Student


"Chris_t_2k5" wrote:

Hi, here is my problem. I will have data in different cells each time such
as A1:C10, A1:H100, for example. What i need is macro that will insert a dash
(-) under the last line of value in each cell.

For example if there are values in cells A1:C10 I need a dash in each of the
cells A11:C11.

Thanks in advance

Sub abc()
Dim rng as Range, rw as Range
Dim cell as Range
Set rng = Range("A1").CurrentRegion
Set rw = rng.Offset(rng.Rows.Count, 0).Resize(1)
For Each cell In rw
cell.Value = "-"
Next
End Sub

--
Regards,
Tom Ogilvy


"Chris_t_2k5" wrote in message
...
Hi, here is my problem. I will have data in different cells each time
such
as A1:C10, A1:H100, for example. What i need is macro that will insert a
dash
(-) under the last line of value in each cell.

For example if there are values in cells A1:C10 I need a dash in each of
the
cells A11:C11.

Thanks in advance