Shouldn't this:ARbitOUR;461933 Wrote:
Private Sub SAMPLECODE_Click()
Dim NewQuote As Workbook
Set NewQuote = Workbooks.Open(ThisWorkbook.Path & "Quote.xlsm")
End SubBe:Private Sub SAMPLECODE_Click()
Dim NewQuote As Workbook
Set NewQuote = Workbooks.Open(ThisWorkbook.Path & "\Quote.xlsm")
End Sub
--
Simon Lloyd
Regards,
Simon Lloyd
'Microsoft Office Help' (
http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile:
http://www.thecodecage.com/forumz/member.php?userid=1
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=127677