从包含空白的列表创build并命名新工作表

我需要编写一个macros来创build一个基于命名范围（ARK_E_TEXAS_LIST）的新工作表。 新的工作表名称将来自命名范围中的列A，但该列将包含空格，但C列将在所有行中都有数据。 不幸的是，这是我需要的清单。

是否有可能创build新的工作表，并从列A命名，并通过空白？

         ABC 1 AR0000RK BLDG CPLX 1
    2 AR0030RK SUB BLDG 1
    3 AR0063RK SUB BLDG 2
    4 AR0082RK SUB BLDG 3
    5 AR0085RK SUB BLDG 4
    6 07020850 SUB BLDG 5
    7 TX0000TY BLDG CPLX 2 
    8 TX0182TY SUB BLDG 1
    9 TX0262TY SUB BLDG 2  
    10 07020830 SUB BLDG 3
    11 AR0021ZZbuild筑1  
    12 AR0031ZZ BLDG 2
    13 AR0057ZZbuild筑3
    4 AR0062ZZ BLDG 4
    5 AR0066ZZ BLDG 5
    6 AR0078ZZ BLDG 6    
    7 AR0079ZZbuild筑7
    18 AR0084ZZ BLDG 8
    9 TX0019ZZ BLDG 9
    20 TX0126ZZ BLDG 10
    21 TX0130ZZ BLDG 11
    22 TX0210ZZ BLDG 12
    23 TX0404ZZ BLDG 13

Sub Create_ARK_E_TEXAS() Dim sht As Worksheet Dim newSheetName As Range Dim dataRange As Range Dim Lastrow As Long Set sht = ThisWorkbook.Sheets("ARK_E_TEXAS") Set newSheetName = sht.Range("A1:A") Lastrow = sht.Range("ARK_E_TEXAS_LIST").Rows.Count Set dataRange = sht.Range("A1:C" & Lastrow) For Each newSheetName In dataRange **If newSheetName > 0 Then Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet Sheets(Sheets.Count).Name = newSheetName.Value ' renames the new worksheet Else: End If** Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet Sheets(Sheets.Count).Name = newSheetName.Value ' renames the new worksheet Next newSheetName End Sub 

Answer 1

 For Each newSheetName In dataRange If newSheetName.Value <> "" Then Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet Sheets(Sheets.Count).Name = newSheetName.Value ' renames the new worksheet End If Next newSheetName