Hello All, any help would be greatly appreciated. Im trying to copy the cell
data from one workbook to another and Im not sure what Im doing. Could
someone please help? I want the user to type "30" and it to find the data on
30.xls .. etc.

Here is what I have.. obviously it dosn't work :)

Sub Copy()
'

Dim sStuff As String


sStuff = InputBox("What date is this for? I.E 1,2,3 etc.")


'
Range("B20").Select
ActiveCell.FormulaR1C1 = "='\\Server1\Important Files\[" & sStuff &
".xls]Totals'!$H$3"

End Sub

Thanks in advance!