Sub save_sheet_in_dbf()

' не выводить сообщения на экран
Application.DisplayAlerts = False

    Range("A1").Select
    ActiveWorkbook.SaveAs fileName:= _
        ActiveWorkbook.Path & Application.PathSeparator & ActiveSheet.Name & ".dbf", FileFormat:=xlDBF4, _
            Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

'включаем сообщения
Application.DisplayAlerts = True

'Сообщаем об успешности сохранения файла (вместе с путем к нему)
    MsgBox "Сохранение успешно завершено " & ActiveWorkbook.Path

End Sub