Rename Sheets

[cgmojoco]

Hi there-

Here is the problem :
7 worksheets

The first worksheet in the workbook has all of the data I've collected from a database, and the other 6 worksheets are charts that are based on that data. Since I will be sorting these sheets later,keep in mind that when writing the code I think referencing the sheet codenames (the actual name of the sheet that can be found in VB under properties of sheet) not necessarily the sheet tabnames will be better.

I would like to take the value of say, cell G6, from the first worksheet in the workbook (it's codename is Sheet1) and propogate it's value to rename the tabname of 3 of the other worksheets adding a -F to the value for the one sheet, -B to another and -L to the last sheet. The codenames of these sheets (again not the tab names) are Sheet2, Sheet3 and Sheet4 respectivley.

So if this part is succesful, the value of cell G6, say the value is Chris, from the first worksheet (codename Sheet1), will have changed the value of three of the worksheets so that I have 3 other sheets named Chris-F (this should be sheet codenamed Sheet2), Chris-B (codename Sheet3) and Chris-L on the 3rd renamed sheet(codenamed Sheet4).

After this is complete, I want to sort the sheets in alphabetical order based on their tabname, excluding the first sheet that had all of the data from the database (I'd like that to remain the first sheet in the workbook).

Thank you in advance!