I'm doing a program/macro thing for work. I'm having the worst time with it though. The main thing I need to know (and yes, I have googled and looked at other search engines) is to dump data from one column into a variable. So far I have: Dim strClass As String Dim strBook As String Dim strEdition As String Dim strISBN As String Dim strPref As String Dim wholeline As String Dim i As Integer For i = 1 To Selection.CurrentRegion.Rows.Count - 1 Do While Not IsEmpty(ActiveCell) strName = ActiveCell ActiveCell.Offset(1, 0).Select Next i But I can't figure out how to make the Data go into the variable so that I can write it out. My data looks like: AA200 Hyde- Global S05 0615154 Required AA260 Global Issues S06 141883063 Required BA210 Global Issues S08 254544524 BA220 Global Issues S09 241157 BA640 Global Issues S10 453877654 FD300 Global Issues S12 456874 Thanks in advance.