I have a worksheet that is a receipt that I want to save and print after filling it out.

I am using the =INDEX(Name,$C$3) to get the name of the person that receipt is for. I have the INDEX and drop down menus working great, my issue is the recording of the macro and saving the name.

I recorded the macro as follows:

1) I printed the page from 1 to 1
2) I then clicked in the cell with the "=INDEX(Name,$C$3)" formula and selected all the text.
3) I then right-clicked on the worksheet and made a copy of it at the end.
4) I then clicked rename the worksheet and pasted the contents of the name.

If I review the macro it has the actual "=INDEX(Name,$C$3)" in the formula instead of the name the formula references. This name changes with each receipt.

Also I get a runtime error after trying the macro.

Here is a copy of the macro I currently have:

Sub PrintSave()
'
' PrintSave Macro
' Macro recorded 3/20/2005 by don
'
' Keyboard Shortcut: Ctrl+p
'
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
Range("K1").Select
ActiveCell.FormulaR1C1 = "=INDEX(Name,R3C3)"
Range("K2").Select
Sheets("Main Receipt").Select
Sheets("Main Receipt").Copy After:=Sheets(15)
Sheets("Main Receipt (2)").Select
Sheets("Main Receipt (2)").Name = "=INDEX(Name,$C$3)"
End Sub


Thanks in advance,
Don