ReplaceWorksheets(Data(i)).Range("a1").PasteSpecialWithWorksheets(CStr(Data(i))).Range("a1").PasteSpecialA string is expected instead of an integer. Hope this helps.