Ashish Sir,
you are really Great...
i am very big fan of you..
thank you so much for the providing the code, this is working good.
On Saturday, 22 March 2014 11:38:08 UTC+5:30, ashish wrote:
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> Sub create()
>
>
> Dim wk As Worksheet, wk2 As Worksheet
> Dim
Sub create()
Dim wk As Worksheet, wk2 As Worksheet
Dim i As Long, k As Long, z As Long, s As Long
On Error Resume Next
Sheets("T1").Delete
Sheets("T2").Delete
On Error GoTo 0
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "T1"
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "T2"
Set wk = Sheets
