tough one ...combining cells in a unique way

[Hugh Stanley]

I'm merging several spreadsheets to make one address book ...PDA's
seem to be on the way out and I'm converting back to excel and hard
copy.

Anyway. I've a fairly huge excel spreadheet - first column is names,
second office phone, third cell phone number.

I'd like to take these three and combine them into a cell for each row
that looks like this:

Name
- Office No.
- Phone No.

The bullets are a nice touch, I'd also like to make the name bold as
well if possible.

I imagine this would be several steps - - anyone have clues / hints /
or completed strings?!

Thanks,

- Hugh -

 

[Ron de Bruin]

You can use this for A1:C1

Sub test()
ActiveCell.Value = "-" & Range("A1").Value & Chr(10) & _
"-" & Range("B1").Value & Chr(10) & _
"-" & Range("C1").Value
End Sub

 

[Ron de Bruin]

You can add this for bold

ActiveCell.Characters(2, Len(Range("A1").Value)).Font.Bold = True

 

[Hugh Stanley]

AH, you're talkin' macros, I was hoping for a formula / string in an
adjacent column. ...My brain was ruined by lotus 1-2-3 and I've never
translated to excel macros...

 

[Ron de Bruin]

Hi Hugh

As far as i know this is not possible with a
worksheet function.

I hope I am wrong