Argument not optional - clear hyperlink

[yhtan0404]

Hi I encountered the Argument not optional error while trying to run the code below. Appreciate if anyone can point out my mistake. Thanks a lot guys.

Sub Clear_Hyperlink()
Dim Rng As Range, Cell As Range
Set Rng = ActiveSheet.Range("a1:a7")
For Each Cell In Rng

If Cell.Hyperlinks.Count > 0 Then

Cell.cut
Cell.Offset(-1, 1).Paste

Elif IsEmpty.Cell = True


Cell.EntireRow.Delete Shift:=xlUp

Else

End If


Next Cell

End Sub

 

[Fluff]

Maybe

If cell.Hyperlinks.Count > 0 Then
   cell.Cut
   cell.Offset(-1, 1).Paste
ElseIf IsEmpty(cell) = True Then
   cell.EntireRow.Delete shift:=xlUp
End If

 

[yhtan0404]

Maybe

If cell.Hyperlinks.Count > 0 Then
   cell.Cut
   cell.Offset(-1, 1).Paste
ElseIf IsEmpty(cell) = True Then
   cell.EntireRow.Delete shift:=xlUp
End If

Thanks bro. It works now.

 

[Fluff]

Glad to help & thanks for the feedback