Add a worksheet based on cell content

[RonNCmale]

I have this code that will change the name of the worksheet as long as a worksheet is present.

Private Sub Worksheet_Change(ByVal Target As Range)
Set SensitiveRange = Range("A1:A8")
Set myRange = Intersect(Target, SensitiveRange)
If Not myRange Is Nothing Then
For Each cll In myRange.Cells
If IsEmpty(cll) Then
Sheets(cll.Row + 2).Name = Sheets(cll.Row + 2).CodeName
Else
Sheets(cll.Row + 2).Name = cll.Value
End If
Next cll
End If
End Sub



Can I expand this code to add a worksheet if text is entered on an empty cell between lines A1 thru A8.

Attached is the workbook

thanks in advance