I have the below code for Showing the Data Form and am just after a little extra for it to open the Data Form to a new record. Any help would be fantastic.
VBA Code:
Sub ShowDataForm()
With Sheets("Weekly Entry")
.Select
.ShowDataForm
End With
Sheets("Database").Activate
End Sub