Hi Jolivanes,
This is fantastic. Work for one worksheet. The only problem is I need to do it in multiple worksheet with a workbook that I need to have this work and because I want to do 1 Macro I am getting an error message:

Compile Error: Duplicate declaration in current scope

Dim lr As Long, lc As Long

Any suggestions. I'm relatively new at VBA

Thanks in Advance for your help with this. It's a beginning!!!!