successfully rename multiple worksheets with VBA code

successfully rename multiple worksheets with VBA code