I'm currently developing a system for a coach company where they'll be able to write out quotations and save/open them all at a click of a button.
I've done the Save button, but I can't get my head around the open. I've written the following code below;
Code
Sub Open_Quotation()
Dim sFile As String
Dim MyFilename As String
MyFilename = InputBox("Enter quotation number") & ".xls"
sFile = "..\Desktop\NT System\Private Hire\Quotations" & MyFilename
Workbook.Open Filename:=sFile
End Sub
I just can't get it to work.
Some help would be appreciated.