How to add a named sheet at the end of all Excel sheets?

Try this: Private Sub CreateSheet() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets.Add(After:= _ ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) ws.Name = “Tempo” End Sub Or use a With clause to avoid repeatedly calling out your object Private Sub CreateSheet() Dim ws As Worksheet With ThisWorkbook Set ws = .Sheets.Add(After:=.Sheets(.Sheets.Count)) ws.Name = “Tempo” End With End Sub Above can be … Read more