![\"\"](\"https:\/\/i0.wp.com\/www.vbastring.com\/blog\/wp-content\/uploads\/2019\/06\/create_sheets1.png\")
<\/a><\/p>\nMake sure your Excel spreadsheet is saved as an .xlsm and accepts macros.<\/strong><\/p>\n In the VBE, add a new module and type the following:<\/p>\n When you press F5, and run the code, you’ll find the newly created sheets!<\/p>\n\r\n\r\n'loeblcomservices.com\r\n\r\nSub CreateSheets()\r\n Dim rng As Range\r\n Dim varTabName As Variant\r\n '************************************************************\r\n '1. Here is the range with the names to create sheet tabs for:\r\n '************************************************************\r\n \r\n Set rng = Sheets(\"MASTER DATA ENTRY\").Range(\"B9:B11\")\r\n \r\n 'loop each row\r\n For Each varTabName In rng.Cells\r\n \r\n 'create a sheet tab for the value\r\n CreateTab (varTabName.Value)\r\n \r\n Next\r\n\r\n Set rng = Nothing\r\n \r\n MsgBox \"Operation Complete\"\r\n \r\nEnd Sub\r\n\r\n\r\nFunction CreateTab(TabName) As Boolean\r\n Dim blnExists As Boolean\r\n Dim strSheetName As String\r\n \r\n strSheetName = TabName\r\n \r\n 'does sheet already exist? If so, don't add it.\r\n blnExists = SheetExists(strSheetName)\r\n \r\n 'if it doesn't exist then create it\r\n If blnExists = False Then\r\n Sheets.Add(After:=Sheets(Sheets.Count)).Name = strSheetName\r\n End If\r\nEnd Function\r\n\r\nFunction SheetExists(strSheet As String) As Boolean\r\n SheetExists = Evaluate(\"ISREF('\" & strSheet & \"'!A1)\")\r\nEnd Function\r\n\r\n\r\n<\/pre>\n\n
\n \n