Tab secara otomatis dari daftar

Excel 2007: Saya perlu membuat tab secara otomatis dan menempatkan nama tab di sel di setiap tab baru. Apa yang saya miliki di bawah ini, dari tombol perintah, akan membuat tab baru. Bagaimana cara membaca dari daftar nama dan secara otomatis membuat tab dengan nama di sel B3 pada setiap tab?

Private Sub CmdNewTAB_Click()
Worksheets("FocusAreas").Copy After:=Worksheets(Worksheets.Count)
'Active.Sheet.Name = NewSheet.Value
'Tab name in B3
End Sub

Jika daftar Anda adalah nilai item dalam lembar kerja excel, dan Anda ingin menambahkan tab berdasarkan daftar itu, Anda BISA melakukan sesuatu seperti ini:

Sub Readinto_array()

On Error Resume Next
Dim arrData() As Variant
arrData = Range("D5:D9").Value

For Each cData In arrData
    If cData <> "" Then
        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = cData
        Worksheets(cData).Range("B3") = cData

        End If
Next cData
End Sub

Asumsi untuk di atas :

1. Daftar nama ada di lembar kerja yang sama dengan tombol.
2. Daftar ada di buku kerja yang sama dengan tombol.

Itu Worksheets(cData).Range("B3") = cDataadalah bagian yang menambahkan nama lembar kerja ke lembar baru di sel B3.

Jika Anda dapat menentukan di mana daftar Anda berada secara simliar; jika tidak pada lembar yang sama seperti tombol, kemudian tentukan nilai yang tepat dalam arrData = Range()porsi file VBA, seperti: arrData = Worksheets("SourceSheet").Range("D5:D9").Value.