Проблемы С Макросом В Excel

[Zoger]

доброго времени суток господа. У меня макрос выдает ошибку, хотя на другом компьютере работает все отлично. (ошибка run time 1004)
ну и сам код.

 ' Ïûòàåìñÿ óäàëèòü ïðåäûäóùèé :)
'a = Shell("del " + mePathOut + meNameDBF, vbNormalFocus)
'If Dir(mePathOut + meNameDBF) <> "" Then
' Shell "del " + mePathOut + meNameDBF, 4
' Kill mePathOut + meNameDBF
'End If
'ñîõðàíÿåì êàê *.DBF ôàéë

ActiveWorkbook.SaveAs Filename:=mePathOut + meNameDBF, FileFormat:=xlDBF4, CreateBackup:=False
ActiveWorkbook.Close savechanges:=False

MsgBox "Ôîðìà ýêñïîðòèðîâàíà." + vbCr + _
"Òåïåðü ìîæíî ïðîâîäèòü îòïðàâêó ïîëó÷åííîãî ôàéëà " + meNameDBF + vbCr + _
"ðàñïîëîæåííîãî â êàòàëîãå " + mePathOut, vbExclamation, "Âíèìàíèå!"

Application.StatusBar = "Ãîòîâî"
Workbooks(meNameBook).Activate
Application.ScreenUpdating = True
End Sub

ошибка в строке

ActiveWorkbook.SaveAs Filename:=mePathOut + meNameDBF, FileFormat:=xlDBF4, CreateBackup:=False

З.Ы. там где непонятные знаки, это просто русские слова некорректно выводит

 

[Zoger]

Скорее всего проблема в том, что на компьютере где работает макрос стоит XP, а там где не работает 7ка, и разные версии Excel. В этом случае как решать проблему без переустановки систем или офиса?

 

[Zoger]

можно тему закрывать, проблема решена через нежелательную переустановку офиса с 2010 на 2003. Всем спасибо