Oops should have had:

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



-----Original Message-----
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
.