Advertisement
Guest User

Untitled

a guest
Feb 22nd, 2019
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.27 KB | None | 0 0
  1. Dim NewOutputFile As Workbook
  2. Set NewOutputFile = Workbooks.Add(FileName & ".xls")
  3.  
  4. NewOutputFile.Sheets.Add ("New tab")
  5.  
  6. NewOutputFile.Sheets.Add().Name= "New tab"
  7.  
  8. NewOutputFile.Sheets.Add(After:=NewOutputFile.Sheets(NewOutputFile.Sheets.Count)).Name = "New tab"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement