Thanks, but it does not enable the buttons when you select a name in the
listbox.


"Tom Ogilvy" wrote in message
...
Sub listbox1_change()

If Trim(ListBox1.Value) = "" or Listbox1.ListIndex = -1 Then

Edit_Name.Enabled = False
Delete_Name.Enabled = False

Else

Edit_Name.Enabled = True
Delete_Name.Enabled = True

End If

End Sub

--
Tom Ogilvy


"Patrick Simonds" wrote in message
...
Thanks guy here is the code I ended up with, and it works fine, but,
there always seems to be a but.

The source for ListBox1 is a worksheet which has a list of all employees
by job category separated by a blank row between each category, so of
course this blank space appears in the ListBox (which is good because it
provides a visual separator between job categories. So in addition to
what the code below achieves I also need the Edit_Name and Delete_Name
buttons disabled when the blank space between job categories is selected.

Sub listbox1_change()

If ListBox1.ListIndex = -1 Then

Edit_Name.Enabled = False
Delete_Name.Enabled = False

Else

Edit_Name.Enabled = True
Delete_Name.Enabled = True

End If

End Sub

"Kai Uwe Schmidt" wrote in message
...
Hi Patrick,

when no selection is made, ListBox.ListIndex has the value -1
(otherwise, it has a value from 0 to Listbox.Listcount -1).

Public Sub ChangeRowSource ()
If listbox1.listindex = -1 then
MsgBox "Please Select a name first!" : Exit Sub 'quick and very
dirty.
Else
..
End if
End Sub

Regards,
Kai


"Patrick Simonds" schrieb im Newsbeitrag
...
On my UserForm I have a ListBox (ListBox1) and 2 Command Buttons (Edit
Name, Delete Name). When I click on one of the two command buttons it
runs code to go to the source for the ListBox and selects the name and
then allows you to Edit or Delete the name.

What I need is a piece of code which will prevent the code associated
to either Command Button from running if no name is selected in
ListBox1


I tried:

EditName ()

If ListBox1.Value = "" Then GoTo BlankList

My Code here

BlankList:

End Sub