Sub renameWorksheet()
Dim wb As Workbook
Dim sh As Worksheet
Dim newSheetName As String
newSheetName = "MYNEWSHEETNAME"
Dim fPath As String
fPath = "C:\myfile.xlsx"
Set wb = workbooks.Open(Filename:=fPath)
' Rename the sheet name of the 1st sheet
Set sh = wb.Worksheets(1)
sh.Name = newSheetName
End Sub
VBA Outlook KPI Excel Alt+F11 Dashboards Macros Recording Graphs Automation Developer WaterFall Powerpoint Charts Pivot Tables Forecast Charts