It looks complete. Thanks for all the help and assistance in this matter. Thanks Again Don Ray Said: What I'd suggest is that before you select all the sheets, you record in a variable which sheet is currently selected, then after you've done all you need to you reselect that one again. The code would look something like this: mySheet = ActiveSheet.Name Sheets.Select ... [your formatting commands] ... Sheets(mySheet).Select Ray Blake --------------------------------------------- This message was sent using Road Runner's Web-based e-mail. ************************************************************* You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or MicrosoftOffice@xxxxxxxxxxxxxxxx To send mail to the group, simply address it to mso@xxxxxxxxxxxxx To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in the subject line. Or, visit the group's homepage and use the dropdown menu. This will also allow you to change your email settings to digest or vacation (no mail). //www.freelists.org/webpage/mso To be able to use the files section for sharing files with the group, send a request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with instructions. Once you are a member of the files group, you can go here to upload/download files: http://www.smartgroups.com/vault/msofiles *************************************************************