Hi All,

Can anyone help me to convert the VBA macro code to Google Sheet Macro.

Sub test()
Dim i As Long, ii As Long, x As Range
Application.ScreenUpdating = False
With Sheets.Add
Sheets("input").Columns(1).Copy .Cells(1)
For i = 2 To .Range("a" & Rows.Count).End(xlUp).Row
If .Cells(i, 1).Hyperlinks.Count Then
ii = 1
Do While .Cells(i + ii, 1).Hyperlinks.Count
If x Is Nothing Then
Set x = .Rows(i)
Else
Set x = Union(x, .Rows(i))
End If
ii = ii + 1
Loop
End If
Next
If Not x Is Nothing Then x.Delete
End With
Application.ScreenUpdating = True
End Sub

The above code was created by excelforum member Jindon who helped me yesterday

Thanks in advance!!!