Hi Bill,

Try:

=============
Public Sub Tester()
With ActiveWorkbook
.Worksheets.Add After:=.Sheets(.Sheets.Count)
End With
End Sub
'<<=============

---
Regards,
Norman



"Bill" wrote in message
k.net...
Hello,
How I can always add a worksheet to the right of all existing, visible
worksheets in a workbook?

Thanks.

Bill