.Delete Shift:=xlUp is deleting the whole row???

[TAPS_MikeDion]

Hi people,
I'm going nuts trying to figure out why this code is deleting the entire row instead of just the selected range. I even recorded a macro to see if I was doing something wrong and the macro that was recorded was basically identical to what I have, and it still deletes the whole row.

For this example assume the following variables:

wSheet = "ZIP Codes"
ZIP = "G"
City = "H"
dRange = 6

Sheets(wSheet).Range(ZIP & dRange & ":" & City & dRange).Delete Shift:=xlUp

Thanks in advance.

 

[mikerickson]

Does

MsgBox Sheets(wSheet).Range(ZIP & dRange & ":" & City & dRange).Address

immediatly before that line show the expected address?

 

[TAPS_MikeDion]

Sorry to bother you Mike, I found my mistake. When I had worked on this previously I had an ELSE statement that applied to all of my CASE statements, with the exception of the one I posted about. After the ELSE statement I had Sheets(wSheet).Rows(ComboBox1.ListIndex + 2).Delete xlShiftUp and then it jumped down to the .Delete Shift:=xlUp I was questioning; it was doing a double delete.

After going back in the code I realized I needed to add If AddDel <> 2 after the ELSE statement. Everything works now.

Thanks for trying to help!