Hi

I have a simple Userform that will add or delete data within 2 sheets named
Sheet1 & Sheet2
Using the sub below it will delete the Name from Col A of Sheet1 OK.
Sheet2 retains the input data in 2 columns starting at Col D. Row 1 is the
header row and is formatted as this example Row1 - Cols D & E merged and the
Name is across these 2 Cols the data starts on Row2 Cols D & E there are 20
Names & Cols formatted this way and it could be as many as 40. Is there a way
when running the sub below that it will also delete the Name and the Columns
in Sheet2 associated with the selection of Combox1 and Sheet1.

Private Sub Remove_Click()
If MsgBox("Are You Sure You Want To Delete This Name If So Click Yes",
vbYesNo) = vbNo Then
Exit Sub
Else
End If
Sheets("Sheet1").Rows(Combox1.ListIndex + 1).Delete Shift:=xlUp
End Sub

Any help much appreciated
--
Many Thanks