Worksheet add

[lwm]

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

 

[Gary Keramidas]

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

 

[FSt1]

hi
see if this might work for you
ActiveWorkbook.Sheets.Add After:= _
Worksheets(Worksheets.Count)
regards
FSt1

 

[lwm]

Thank you both for youre quick and helpfull responses.

 

[FSt1]

you're welcome
regards
FSt1

Thank you both for youre quick and helpfull responses.