Reply to thread

Message: [QUOTE="Howard, post: 7421570"] 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 [/QUOTE]