Hi

I have the following code that copys selected cells into a worksheet called "Feb" in a workbook called "sample_tracking_2013"

Dim wbb As Workbook
For Each wbb In Workbooks
If wbb.Name = "Sample_Tracking_2013.xlsx" Then GoTo Setwss
Next
Workbooks.Open _
Filename:="C:\BralorneProject\Geology\Admin\2013 Admin\Sample Tracking\sample_tracking_2013.xlsx"
wa.Activate
Setwss:
Set wbb = Workbooks("Sample_Tracking_2013")
Set wss = wbb.Worksheets("Feb")
s = wss.Range("A" & Rows.Count).End(xlUp).Row + 1
ThisWorkbook.Activate
Selection.Copy: wss.Range("A" & s).PasteSpecial xlPasteValues
wbb.Close True
End Sub
There are several worksheets within the work book and i want the macro to ask which sheet i want to paste the data into, instead of pasting the data into the "Feb" work sheet.

Cheers
Eric