don't use both of these, just 2 examples


Sub test()
Dim wsnew As Worksheet
Set wsnew = Worksheets.Add(after:=Worksheets(Worksheets.Count) )
Set wsnew = Worksheets.Add(after:=Worksheets("Sheet2"))
End Sub


--


Gary


"lwm" wrote in message
...
I am using the following to add worksheets to the active workbook.

ActiveWorkbook.Worksheets.Add

This works except it always adds to the far left.

How do I add new worksheets so that they go from left to right?

What I have done is written a macro that adds up to 15 worksheets and allows
the user to input the header, Tab name and then formats the header and footer
for each new sheet. This makes left to right most usful.



Thanks