Date References to save files using VBA Code

[snb]

Sub M_snb()
  thisworkbook.saveas "G:\OF\voorbeeld_" & format(date,"ddmmyyyy") & ".xlsx",51
End Sub