I tried to put something together but the folowing doesn't work. Any
idea's why???


Sub CommandButton2_Click()

On Error GoTo ErrorHandler

'PG_Begin is the name for the selection A1: A10 and on sheet called
assumption

Application.Goto Reference:="PG_Begin"
Row = ActiveCell.Row

While ActiveSheet.Cells(Row, 1).Value < ""
PG = ActiveSheet.Cells(Row, 1).Value


'the database called OLAP is activated and searced for
Sheets("olap").Select
Cells.Find(What:=PG, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Select
ActiveCell.EntireColumn.Select

ActiveCell.EntireColumn.Copy
ActiveSheet.Paste (Sheets("Previous"). _
Range("IA1").End(xlToLeft).Offset(, 1))

Sheets("Assumption").Select

Row = Row + 1

Wend

ErrorHandler:
Application.ScreenUpdating = True
MsgBox (Err.Description)

End Sub