Ayuda macro no funciona excel 2013

Encontré esta macro en internet, pero no me funciona sale error de sintaxis etc...

La macro es:

Macro para guardar archivo seleccionando ubicación
Sub guardar_archivo()
Dim stArchivo
stArchivo = Application.GetOpenFilename(“Hoja de Excel , *.xls*”, _
, “Seleccione archivo “)
End Sub