On Dec 8, 8:22*am, Jarek Kujawa wrote:
1. should be:
Set QuoteSht = ActiveSheet
(instead of AvtiveSheet)

2. MsgBox QuoteSht
what do you need this message box for? you only can place a string in
MsgBox (sth. like QuoteSht.Name)
QuoteSht cannot be placed in a MsgBox since it is an object

I am sorry that I wasted your time. I am definitly having a Monday.
I had not typed correctly. In the code I had ActiveSheet and not
Avtive. Plus the biggest problem was that I had a poor reference to
what I wanted to open. After I removed the Range(r15) = something
part, it works great.

Set QuoteSht = ActiveSheet

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