Stop Double Click VBA code working if no name in column C

[Malcolm torishi]

The following code works fine when the row that I have double clicked on contains data but it does not work if the row is blank, ie the code breaks at “Target.Offset(, -25).Resize(, 25).SpecialCells(xlCellTypeConstants).ClearContents”
So what I would like to know is it possible for the code below not to run if these is not a name on the row that I have double clicked under column C which is my 3rd column and my target column 28 is AB
Thank you

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified 6/18/2019 3:09 PM EDT
If Target.Column = 28 And Target.Row > 1 Then
Cancel = True
Dim Lastrow As Long
Lastrow = Sheets(3).Cells(Rows.Count, "A").End(xlUp).Row + 1
Target.Offset(, -25).Resize(, 1).Copy Sheets(3).Cells(Lastrow, 1)
Target.Offset(, -25).Resize(, 25).SpecialCells(xlCellTypeConstants).ClearContents
Range("AO" & Target.Row).Resize(, 3).ClearContents
Target.Offset(, -25).Value = "-"
End If
End Sub

 

[Fluff]

Add this just after the Cancel=True line

If Target.Offset(, -25) = "" Then Exit Sub

 

[Malcolm torishi]

Add this just after the Cancel=True line

If Target.Offset(, -25) = "" Then Exit Sub

Thank you Fluff, you make it sound so simple

 

[Fluff]

You're welcome & thanks for the feedback