I must thank this person whoever that wrote the code for me. I have forgotten his name. It is someone from this forum. But can someone else help explain to the codes one line at a time. It basically extracts columns of information according to the names in a another spreadsheet lined up in in a column and puts the information into another spreadsheet. I would really appreciate it if you could explain to me line by line. Thank you for your time and effort. There's nothing i can do in return but thank you for your effort. Thank you again.
|Dim sh1 As Worksheet, sh2 As Worksheet, f As Range, i As Long|
|Set sh1 = Sheets("Sheet1")|
|Set sh2 = Sheets("Sheet2")|
|For i = 2 To sh2.Range("A" & Rows.Count).End(xlUp).Row|
|Set f = sh1.Rows(1).Find(sh2.Cells(i, "A"), , xlValues, xlWhole)|
|If Not f Is Nothing Then sh1.Columns(f.Column).Copy Sheets("Sheet3").Cells(1, i - 1)|