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


"Max" wrote in message
...
How could the line below so that new sheets are added to the right (instead of
the default left):

Set WSNew = Sheets.Add

Thanks