Sub FirstMoveToQuoteSheet()
Dim QuoteSht As Worksheet
Dim Log As Worksheet
Dim Opn As String

Set QuoteSht = AvtiveSheet
Opn = "G:\New Items\Tracking Lists\" & QuoteSht.Range("R15") = _
Left(QuoteSht.Range("H2"), 2) & " Quotation Tracking Log.xls"
MsgBox QuoteSht
Workbooks.Open Filename:=Opn


End Sub
Here is the code. It bugs out on msgbox. The Quotesheet is set to
nothing. any help would be greatly appreciated.
Thanks,
Jay