Hi Lloyd,

I was playing with it too and this worked for me:

ActiveWorkbook.Sheets(CStr(vData(n, 2))).Range("A1:" & vData(n, 3) & "100").Select