Hi,

Can anyone help me with my macro? Basically, it is supposed to look at the
book name and rename it if it is call Quotes & Orders to a value ( which is a
job number) in C2.
in an ideal world, i would like to save it to the following:
S:/Clients/(get client name from cell C1)/(Get Project Name from C3/(Get Job
Number from C2) Quotes & Orders.xls

Any Help Greatly appreciated.
Regards,

Nigel

sub SaveThisBook()
Revision = ActiveWorkbook.Name
RevName = Range("2").Value

if ActiveWorkbook.Name = "Quotes & Orders.xls" then
SaveAs = RevName & " " & Revision
End If
If ActiveWorkbook.Name = "" Then
msgbox " This Book Has Already Been Named. Please Review Book Name"
End if
End Sub