VBA EXCEL 另存到当前文件夹下

如何将路径默认设置为当前文件夹路径
Sub Lable_Rename(Wb As Workbook)
On Error Resume Next
Filename = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel 2003 工作薄,*.xls,文本文件,*.txt,其他文件,*.csv:*.*")
If Filename = False Then Exit Sub
If Mid(Filename, InStrRev(Filename, "\") + 1) <> Wb.Name Then
With Application.CommandBars("文件管理").Controls(Wb.Name)
.TooltipText = Mid(Filename, InStrRev(Filename, "\") + 1)
.Caption = .TooltipText
.Tag = .TooltipText
End With
End If
ActiveWorkbook.SaveAs Filename
End Sub

相关了解……