Dear Harmeet Singh,
It s working thanks a lot
On Tue, Jun 1, 2010 at 4:08 PM, Harmeet Singh wrote:
> *Here you go*
> *use mentioned code*
> *
> *
> *Sub ren()*
> *
> *
> *mo = InputBox("Enter Month number.")*
> *
> *
> *For i = 1 To Application.Worksheets.Count*
> *
> *
> *Sheets(i).
Thanks a lot
Jitendra Kr. Verma
On Tue, Jun 1, 2010 at 3:34 PM, Jitendra Kumar Verma <
jitendra.ve...@globallogic.com> wrote:
> Use this macro to Rename the sheet.
>
>
>
> Sub Renamesheet()
>
>
>
> Dim shtName As String
>
>
>
> For Each sht In ThisWorkbook.Sheets
>
> shtName = sht.Nam
Hi All /
I feel that I am facing a similar problem in word.
My work relates to prepare a large number of reports and I use mail merge
for all this process. I have to save each and every report separately. The
file name I need to use is also generated through mail merge at the very
first line of e
Use this macro to Rename the sheet.
Sub Renamesheet()
Dim shtName As String
For Each sht In ThisWorkbook.Sheets
shtName = sht.Name
shtName = Left(shtName, 2) & Replace(shtName, "05", "06", 3)
sht.Name = shtName
Next
End Sub
Regards,
Jiten
*Here you go*
*use mentioned code*
*
*
*Sub ren()*
*
*
*mo = InputBox("Enter Month number.")*
*
*
*For i = 1 To Application.Worksheets.Count*
*
*
*Sheets(i).Name = Left(Sheets(i).Name, 3) & mo & Right(Sheets(i).Name,
3)*
*Next i*
*
*
*End Sub*
Warm Regards,
Harmeet Singh
http://www.fac
