Thank you for the effort Bob, but this returned a compile error

Rich


"Bob Phillips" wrote in message
...
If you need a macro

cRows = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To cRows
With Cells(i,"A")
If Cells(i,"B").Value < "" Then _
.value = .value & "-" & Cells(i, "B").Value
If Cells(i,"C").Value < "" Then _
.value = .value & "-" & Cells(i, "C").Value
End With
Next i

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Frank Kabel" wrote in message
...
Hi
you can use a formula like
=A1 & "-" & B1 & "-" & C1
and copy this down for all rows

--
Regards
Frank Kabel
Frankfurt, Germany


Rich wrote:
all, thanks for any response.

I would like to make a macro to take the contents of 3 columns of 20
numbers and letters, and combine them into one column to form a label
number.....this is relevant for a label making program that allows an
Excel import.

for example

A1 Port1 KVM

would turn into
A1-Port1-KVM

any help is appreciated.