I just tried the following and recieved an Error 450:

ChkbxArray(0, 4) = ActiveSheet.Comments
ChkbxArray(1, 4) = ActiveSheet.UsedRange
ChkbxArray(2, 4) = ActiveSheet.UsedRange
ChkbxArray(3, 4) = ActiveSheet.UsedRange
ChkbxArray(4, 4) = ActiveSheet.UsedRange
ChkbxArray(5, 4) = ActiveSheet.UsedRange

Should I have used quotes for this to work properly?

Thanks