raseen20, must confess to never using list boxes so don't know about dealing with them directly.
This is what I would do to update the data
Code:
Sub CommandButton1_Click()
' To write edited info of userform2 to Sheets("Succession Database")
Dim LastRow As Long
Dim ABnum As Double
Dim ABrng As Range
Dim WriteRow As Long
' Make sure we're on the right sheet
Sheets("Succession Database").Select
With ActiveSheet
' Get the last row used so can set up the search range
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
' Set the range to search for the AB number
Set ABrng = .Range("A1:A" & LastRow)
' Get the AB number from what is selected on userform2
ABnum = txt17.Value
' Get the row of sheet for this AB number
WriteRow = Application.Match(ABnum, ABrng, 0)
' Make this AB number the active cell
Cells(WriteRow, 1).Select
' Write in all the editable stuff, don't bother with the non-editable things
With ActiveCell
.Offset(0, 7).Value = txt29.Value
.Offset(0, 8).Value = txt30.Value
'etc.
'etc.
End With
' Put the cursor in upper left corner
Cells(1, 1).Select
End With
' Unload the userform
Unload Me
End Sub
Hope this helps
Bookmarks