add "if selection does not include A1" to a macro.

[smking204]

I recorded a macro then added "If Selection <> Range("A1") Then" to it. Here's the script:

Sub DeleteCellsShiftUp()
'
' DeleteCellsShiftUp Macro
'

'
    If Selection <> Range("A1") Then Selection.Delete Shift:=xlUp
    Range("A1").Select
End Sub

this works as long as my selection is only one cell. But I need to select and delete a range (or two or three ranges) of cells. How can I adjust that "if" statement?

Thank you!

 

[Snakehips]

@smking204. If I am understanding correctly then try below.

Sub DeleteCellsShiftUp()
'
' DeleteCellsShiftUp Macro
'
    If Intersect(Selection, Range("A1")) Is Nothing Then Selection.Delete Shift:=xlUp
    Range("A1").Select
End Sub

 

[smking204]

@smking204. If I am understanding correctly then try below.

Sub DeleteCellsShiftUp()
'
' DeleteCellsShiftUp Macro
'
    If Intersect(Selection, Range("A1")) Is Nothing Then Selection.Delete Shift:=xlUp
    Range("A1").Select
End Sub

beautiful, thank you!