Create new workbook

[Kevin G]

How would I create a new work book and name it from an active workbook name
& todays date?

 

[Rob van Gelder]

Sub test()
Dim strFileName As String

strFileName = ActiveWorkbook.Name
If Right(strFileName, 4) = ".xls" Then
strFileName = Left(strFileName, Len(strFileName) - 4)
End If

With Workbooks.Add
.SaveAs strFileName & Format(Date, "yyyymmdd")
.Close
End With
End Sub