My God !
So Quick !!
Even Shatabdi Express is not so Fast !!!
Thank you so much Rajan
On Thu, Jun 7, 2012 at 8:28 PM, Rajan_Verma wrote:
> Use this:
>
> ** **
>
> Private Sub Workbook_Open()
>
> Dim wksSheet As Worksheet
>
> For Each wksSheet In Me.Worksheets
>
>
Use this:
Private Sub Workbook_Open()
Dim wksSheet As Worksheet
For Each wksSheet In Me.Worksheets
If wksSheet.Name Like "Result*" Then
wksSheet.Name = "Result_" &
Val(WorksheetFunction.Substitute(wksSheet.Name, "Result_", "")) + 1
End If
Next wksSheet
