I have another problem. I hope it is not as stupid. VBA is not
letting me set Log = WrkBk.Sheet1. Why?

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

Thanks,
Jay