.Rows(OstW + 5).Insert Shift:=xlDown
OstW = OstW + 1
End If
End If
End If
Next Wks
Next i
End With
End Sub
Paul
-----------------
"Do all the good you can,
By all the means you can,
In
Use it like this:
For Each Wks In ThisWorkbook.Worksheets
If IsNumeric(Wks.Name) Then
Wks.Name = "Year " & Wks.Name
end if
If Wks.Name >= 2010 And Wks.Name <= Year(Date) Then
end if
next wks
On Tuesday, 2 April 2013 20:01:41 UTC+5:30, artforart artforart wrote:
>
> If I add this bold part in cod
If I add this bold part in code I've got End if without block if
For Each Wks In ThisWorkbook.Worksheets
If IsNumeric(Wks.Name) Then *Wks.Name = "Year " & Wks.Name*
If Wks.Name >= 2010 And Wks.Name <= Year(Date) Then
Thank u for help
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do y
To change worksheet name you are doing right and except this what you want
is not clear so if there is something for which you need help you need to
specify it clearly.
On Tuesday, 2 April 2013 00:30:06 UTC+5:30, artforart artforart wrote:
>
> I must change a head in the original table.
> I have
