Bill,
I actually figured out my last question all by myself. Thanks for the code!
Lynn

"Bill Kuunders" wrote:


You will have to change the range of myrange and the addres "H1" where the
reult is listed.
This macro worked for me.
Good luck


Sub test()
Dim myrange As Range
Set myrange = Range("a1:d5")
Range("H1").Activate
For Each cell In myrange
If cell.Value = "x" Then
ActiveCell.Offset(1, 0).Activate
ActiveCell.Value = myrange(cell.Row, 1).Value
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = myrange(1, cell.Column).Value
ActiveCell.Offset(0, -1).Select
End If
Next
End Sub


--
Greetings from New Zealand
Bill K


"Lynn Bales" wrote in message
...
I have data which consists of a row with an identifier and several columns
which are options for the identifier that contain an X when it's selected.
It
looks like this

number option1 option2 option3
1234 X X
2345 X X

What I'm trying to get is a single column of

1234-option1
1234-option2
2345-option2
2345-option3

I've tried to use transpose and concatenate but it's a large spreadsheet
so
it's still very manual. Any ideas or macros that would help me automate
this
process would be VERY appreciated.