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;
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.