As you already have a string you don't use the quotesSheets(ReturnToFocusListsSheetIndicated).SelectI would also make the Dim "As String"