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