Find and delete row

[jimmisavage]

Hi,
I'm trying to find a row based on a combobox1. It's working on one sheet, but not on another - on the other sheet it seems to delete the column below the one i'm expecting. Can anyone shed some light on why this might happen?

Private Sub CommandButton2_Click()    Sheets("Study Database").Select
    Columns("B:B").Select
        Cells.Find(What:=ComboBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
        Rows(ActiveCell.Row).EntireRow.Delete
    Range("A1").Select
    'next
    Sheets("Study Snapshot").Select
    Columns("E:E").Select
        Cells.Find(What:=ComboBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
        Rows(ActiveCell.Row).EntireRow.Delete
    Range("A1").Select
    Sheets("Admin").Select
    Unload Me
End Sub

 

[Fluff]

Do you have any merged cells on that sheet?

 

[jimmisavage]

Actually, yes I do. Cells in row b and c are merged together. Is this what's throwing it off?

How would I counter this?

 

[Fluff]

Actually, yes I do. Cells in row b and c are merged together. Is this what's throwing it off?

Yup

How would I counter this?

Get rid of the merged cells. They are about the worst thing you can do to a spreadsheet and should be avoided like the plague.

 

[jimmisavage]

Okay, thanks bud.
That's done the trick, cheers.

 

[Fluff]

You're welcome

 

[jimmisavage]

Actually Fluff,
Sorry to be a pain but it's just happened again. There are no merged cells now.

In fact, if I put an error in before the part where it deletes I can see the combobox1 has actually changed to the next selection in the dropdown list. This is why it's deleting the line below the one i actually want.
Do you have any idea why this would happen?

 

[Fluff]

How is the combo being populated?

 

[jimmisavage]

I've 'fixed' it by choosing to delete the row above the active cell but it's not an ideal solution. If anyone else has an idea i would really appreciate it.

Sheets("Study Snapshot").Select    Columns("E:E").Select
        Cells.Find(What:=ComboBox1.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Select
        Rows(ActiveCell.Row - 1).EntireRow.Delete
    Range("A1").Select