try changing:
Set MKPRng = Selection.SpecialCells(xlCellTypeVisible)
to:
Set MKPRng = MKPRng.SpecialCells(xlCellTypeVisible)
(untested).
try changing:
Set MKPRng = Selection.SpecialCells(xlCellTypeVisible)
to:
Set MKPRng = MKPRng.SpecialCells(xlCellTypeVisible)
(untested).
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.
Posting Permissions
Reply With Quote