VBA Help - Copying file, save as

Hi everyone,

So far, I have a macro that creates a new file and renames according to a cell. However, I'd like to be able to copy the file I'm running the macro on, save as according to a cell (which it does already), add something after the cell name "e.g. 'Cell name Q315' (if I could have a pop up box to ask what quarter/year I'd like it to say, that would be even better!). This is what I have so far:

Sub CreateFiles()
Dim lRow As Integer
lRow = Range("AO" & Rows.Count).End(xlUp).Row
For Each cell In Range("AO3:AO" & lRow)
Workbooks.Add.SaveAs Filename:=cell.Value & ".xls"
Next cell
End Sub

I couldn't figure out how to make it copy instead of creating a blank workbook... any help is appreciated!