Thanks Brad.

Between you and Tom Olgivy I am now on the functioning
track to what I need done!

JER

-----Original Message-----
I left out the line that you had in your original code...

ps = ThisWorkbook.Name

The out of range errors are coming from the missing "ps"
variable.

-Brad
.