Dim aWb As Workbook Dim ISGVSHoldings As Object Set aWb = ActiveWorkbook Set ISGVSHoldings = ThisWorkbook.Sheets("Revenue").Range("V12") aWb.Sa