Worksheets.Add

[XLML]

How can Worksheets.Add in vba be modified to insert a worksheet to the Right and not Left of the Active Sheet?

Thanks in advance,
XLML

 

[jindon]

Did you want to copy the sheet?

Sub test()
If TypeName(ActiveSheet) <>"Worksheet" Then Exit Sub
ActiveSheet.Copy After:=Sheets(ThisWorkbook.Worksheets.Count)
ActiveSheet.Name = Val(Worksheets(Worksheets.Count - 1).Name) + 1
End Sub

 

[DKcrm]

Thank you.

This works great with the active sheet ..