You need to create a code in Excel VBO like below.
Dim wb, ws As Object
Try
wb = GetWorkbook(Handle, Workbook)
ws = wb.Worksheets(Worksheet)
ws.Name = (NewWorksheetName)
Success = True
Catch e As Exception
Success = False
Message = e.Message
Finally
ws = Nothing
End Try