Thanks for the reply. I had tried that and it didn't work. I have since
found the answer by scrolling through similar questions elsewhere. I had
introduced a filter which seemed to lock the hidden cells and by including a
'ShowAll' in my code I have overcome the problem.

"GS" wrote:

Possibly, you could use this line before your procedure ends:

ActiveSheet.Rows.EntireRow.Hidden = False

HTH
Regards,
GS