Add suffix to all sheets in a workbook

[coraltint]

Hello,

I'd like to have a macro that can be applied to several different sheets in a few different workbooks. It should just add to sheet names the date in mmmdd format with a dash in front. That is, a sheet named "Risk" would become "Risk-Apr20" today.

thanks!

 

[Momentman]

A code like this when run on the active workbook does what you reuire

Sub addtosheetnames()
    Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
        sh.Name = sh.Name & "-" & Format(Date, "mmm-dd")
    Next sh
End Sub

 

[coraltint]

Thanks, Momentman!