Creating And Populating Multiple Workbooks

I have just started out learning vb and am having some trouble with a particular request. The following code is code I found to split a worksheet into different sheets based on a variable in the data (Col G). It has now been requested that instead of new worksheets, they want the data in new work books, automatically named and saved as today's date.

Sub UpDate_Sheets()
Dim ws As Worksheet, source As Range, dest As Range
Dim daily As Worksheet
Set daily = Worksheets("Sheet1")
Application. ScreenUpdating = False
On Error Resume Next
For Each ws In Worksheets
If ws.Name <> daily.Name Then
daily.Range("G1"). AutoFilter Field:=7, Criteria1:=ws.Name
Set source = daily.Range("G1"). CurrentRegion.Offset(1, 0).SpecialCells(xlVisible)
Set dest = Worksheets(ws.Name).Range("A65536").End(xlUp).Offset(1, 0)
source.Copy dest
End If
Next
daily.Range("G1").AutoFilter
On Error Goto 0
End Sub