Is this what you are after?
Dim Before As String
Before = ActiveSheet.Range("O5")
ActiveSheet.copy Befo=Workbooks("Feedback Master Sheet.xls"). _
Sheets(Before
--
Nick
-----------------------------------------------------------------------
Nicke's Profile:
http://www.excelforum.com/member.php...nfo&userid=293
View this thread:
http://www.excelforum.com/showthread.php?threadid=26951