Delete a range by clicking a cell

[tonywatsonhelp]

Hi everyone,

what i want is a macro that if I click a cell (and only one cell) in column AW, if that cell value = "Delete" then that row columns AX:BO delete rows shift cells up

gettting a bit confused, please help if you can

Tony

 

[Fluff]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Column = 49 Then
      If Target.Value = "Delete" Then Range("AX" & Target.Row).Resize(, 18).Delete xlShiftUp
   End If
End Sub

 

[tonywatsonhelp]

thanks fluff

 

[Fluff]

You're welcome & thanks for the feedback.