Hello,
How I can always add a worksheet to the right of all existing, visible
worksheets in a workbook?

Thanks.

Bill

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

Hi Bill,

Adressing the visible criterion, try:

'=============
Public Sub Tester2()
Dim i As Long

With ActiveWorkbook
For i = .Sheets.Count To 1 Step -1
If .Sheets(i).Visible Then
.Worksheets.Add after:=.Sheets(i)
Exit For
End If
Next i
End With
End Sub
'<<=============

---
Regards,
Norman