Try this

Sub renamesheets()
Sheets("sheet1").Name = "Main"
'etc

For i = 5 To Sheets.Count
'Help, sheet5 as NN1, sheet6 to sheet55 as NN2 to NN50.
Sheets("sheet" & i).Name = "NN" & i - 4
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Harshad" wrote in message
...
i have Sheet1 to Sheet 55 in my workbook.

I want Sheet1 rename as Main, sheet2 as Content, sheet3 as Micro, sheet4
as
Help, sheet5 as NN1, sheet6 to sheet55 as NN2 to NN50.

Sugest macro.

Thanks