Renaming Multiple Worksheets

[uberathlete]

Hi everyone. Got a problem and I really need some help. Basically, I have a workbook with plenty of worksheets. I would like to rename the worksheets based on some criteria.

For example, in each worksheet, column A is a column for dates. None of the worksheets have the same dates:

I would like the worksheet to be named: SXFMONTHDAY.YEAR

wherein MONTH is the first 3 letters of the month , DAY is the day , and year is the last 2 digits of the year. So in this case, Sheet1 would be named: SXFJan3.06

Then, Sheet2 will be renamed based on it's date and the worksheet name format just mentioned. The rest of the worksheets are also renamed the same way.

I'm sure some VBA is needed for this but I'm really bad at it. Any suggestions or comments would be greatly appreciated. Thank you!

 

[PATSYS]

Hi everyone. Got a problem and I really need some help. Basically, I have a workbook with plenty of worksheets. I would like to rename the worksheets based on some criteria.

For example, in each worksheet, column A is a column for dates. None of the worksheets have the same dates:

I would like the worksheet to be named: SXFMONTHDAY.YEAR

wherein MONTH is the first 3 letters of the month , DAY is the day , and year is the last 2 digits of the year. So in this case, Sheet1 would be named: SXFJan3.06

Then, Sheet2 will be renamed based on it's date and the worksheet name format just mentioned. The rest of the worksheets are also renamed the same way.

I'm sure some VBA is needed for this but I'm really bad at it. Any suggestions or comments would be greatly appreciated. Thank you!

Press ALT+F11, insert module, paste below code:

Sub test()

Dim Sht As Worksheet


For Each Sht In Worksheets
    With Sht
    .Name = "SFX" & Format(.Range("a2"), "mmmdd") & "." & Format(.Range("a2"), "yy")
    
    End With

Next Sht

End Sub

Press F5 to run the codes.

 

[uberathlete]

That worked perfectly! Thank you so much!