Here is what ive done so far:
Sub Report()


Dim Nm As String
If MsgBox("Do you want to create report?", vbQuestion + vbYesNo)
vbYes Then

Set newBook = Workbooks.Add
With newBook
.Title = "Report" & Now()
.SaveAs Filename:="Report" & Now()

Nm = newWb.Name
MsgBox "New Report Created and Saved As" & Nm

End If

Think ive missed somthing out and im not too sure about vba can anyon
help

--
Message posted from http://www.ExcelForum.com