This works okay, except if you cancel out of entering something in the list, it enters FALSE. Don't want that.

Thanks,
Howard

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub

Dim strName As String

If Target = "Not on list" Then
strName = Application.InputBox("Add To List", _
"Add to list here", "Enter Whatever", , , , , 2)
Range("F1").End(xlDown).Offset(1, 0).EntireRow.Insert
Range("F1").End(xlDown).Offset(1, 0) = strName
End If

End Sub