That's all great, I'm really pleased it's worked out for you. To exclude the hidden cells try adding the bit in red:
I haven't tested it, but it could do the trick!!ar = shMeta.UsedRange.SpecialCells(xlCellTypeVisible)
That's all great, I'm really pleased it's worked out for you. To exclude the hidden cells try adding the bit in red:
I haven't tested it, but it could do the trick!!ar = shMeta.UsedRange.SpecialCells(xlCellTypeVisible)
Semper in excretia sumus; solum profundum variat.
Reply With Quote
