'to add a sheet at the very beginning of the Sheets tab Worksheets.Add Before:=Worksheets(1) 'to add a sheet at the very beginning of the Sheets tab Dim shtLast As Worksheet Set shtLast = .Worksheets(.Worksheets.Count) Set shtNew = Worksheets.Add(After:=shtLast) 'to add multiple sheets before the active sheet ThisWorkbook.Worksheets.Add Count:=<number of sheets you want to add> 'to add a new sheet before the current active sheet Dim sht as Worksheet Set sht = ThisWorkbook.Worksheets.Add sht.Name = "<name of new worksheet>"