LinkBack URL
About LinkBacks
surfengine 
Hi surfengine,
Maybe:
Sub IfSel() Dim Sel As Range Set Sel = Selection If Sel.Row = 1 Then Selection.Delete Shift:=xlToLeft ElseIf Sel.Column = 1 Then Selection.Delete Shift:=xlUp End If End Sub
Hi surfengine,
Maybe:
Sub IfSel() Dim Sel As Range Set Sel = Selection If Sel.Row = 1 Then Selection.Delete Shift:=xlToLeft ElseIf Sel.Column = 1 Then Selection.Delete Shift:=xlUp End If End Sub
If I've helped you, please consider adding to my reputation - just click on the liitle star at the left.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(Pride has no aftertaste.)
You can't do one thing. XLAdept
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~aka Orrin
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks