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

Hi Howard,

Am Wed, 28 Aug 2013 07:45:46 -0700 (PDT) schrieb Howard:

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

try:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address < "$B$1" 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)
If strName = "" Or strName = "False" Then Exit Sub
Range("F1").End(xlDown).Offset(1, 0).EntireRow.Insert
Range("F1").End(xlDown).Offset(1, 0) = strName
End If

End Sub


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

On Wednesday, August 28, 2013 8:33:53 AM UTC-7, Claus Busch wrote:
Hi Howard,



Am Wed, 28 Aug 2013 07:45:46 -0700 (PDT) schrieb Howard:



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



try:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address < "$B$1" 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)

If strName = "" Or strName = "False" Then Exit Sub

Range("F1").End(xlDown).Offset(1, 0).EntireRow.Insert

Range("F1").End(xlDown).Offset(1, 0) = strName

End If



End Sub





Regards

Claus B.

Nice little one line fix.
Thanks, Claus