Boa Tarde,

Estou tentando precisando montar um vba simples para salvar a planilha, mas estou tendo o erro 1004

Sub saveas()
Dim nome As String
nome = "D:\" & Format(Now(), "yyyy_mm_dd_hh:mm") & "_Saque"
Application.DisplayAlerts = False
ThisWorkbook.saveas Filename:=nome, FileFormat:=51
Application.DisplayAlerts = True
End Sub

 o erro ocorre na linha do ThisWorkbook