Public Sub GetQuoteInfo(QuoteNum As String)
Dim SrcWBK As Workbook, DestWBK As Workbook
QuoteFile = "C:\AddedTouch\Data\Quotes\2012\" & QuoteNum & ".xlsx"
Set SrcWBK =...