Try to copy/Paste this format, it has no errors on my machine:

ActiveWorkbook.SaveAs ThisWorkbook.Path & _
"\Backup\Sales\Work\" & inval & "(" & _
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Stefi


€žEd Davis€� ezt Ã*rta:

I checked and no spaces are there, but I retyped it anyway and get a
expected end of statement on "(".


--
Thank You in Advance
Ed Davis
"Ed Davis" wrote in message
...
This is now the whole line of code and I am getting a syntax error on the
line.

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Backup\Sales\Work\"&inval&"("
&
strSH & ")" & Format(Now, " dd-mm-yy hh-mm-ss") & ".xls",
FileFormat:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, CreateBackup:=False


--
Thank You in Advance
Ed Davis
"Stefi" wrote in message
...
Bob missed a " after inVal&:
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& "(" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

Instead of
ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"
Stefi


"Ed Davis" ezt Ã*rta:

I now have this code and I am getting a compile error on " &
Format(Now,"
EXPECTED END OF STATEMENT.

ThisWorkbook.Path & "\Backup\Sales\Work\" &inVal& (" & strSH & ")" &
Format(Now," dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis
"Bob Phillips" wrote in message
...
Sub TopLevelMacro()
Dim var As String

var = "Before_I_Update"

Call Macro1(var)

Call macro2(var)

'etc
End Sub

Sub Macro1(inVal As String)
ThisWorkbook.Path & "\Backup\Loja\Work\" & inVal & (" & strSH & ")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"
end sub

and so on

--
__________________________________
HTH

Bob

"Ed Davis" wrote in message
...
I have this line in several macros (7) to be exact.
Each one of these macros is called when another Macro is run
(Changing
something on a sheet).
The macros are exactly the same except this line where this line says
"Before_I_Update"
Is there a way to pass "Before_I_Update" from the macro that is
calling
it?
That way I can have only 1 macro that runs this code and pass the
"string" to it.
BTW I have three workbooks with the same amount of macros with this
code.

ThisWorkbook.Path & "\Backup\Loja\Work\Before_I_Update (" & strSH &
")" &
Format(Now, " dd-mm-yy hh-mm-ss") & ".xls"

--
Thank You in Advance
Ed Davis