Dear

I am attempting to show cells A1 to B4 in a msgbox.

The code I had tried is:

dim c1(6) as integer
dim c5 as variant

c1(6) = Selection.CurrentRegion.Rows.Count
c5 = (Range("A1:B" & (c1(6))))
MsgBox c5

However, this is not working. Any ideas?

Thanks,

Peter