Try:

Sub marine()
Range("A:A").Copy Range("B1")
n = Cells(Rows.Count, "B").End(xlUp).Row
For m = n To 1 Step -1
If Cells(m, "B").Hyperlinks.Count = 0 Then
Cells(m, "B").Delete Shift:=xlUp
End If
Next
End Sub
--
Gary''s Student - gsnu200750


"pcor" wrote:

I have about 200 entries in col a
Some of these entries are hyperlinks to other locations
I would like a macro to copy ONLY the hyperlinks from Col a to Col b
Currently the hyperlinked items are interspaced over the entire col a, I
would like to have all the hyperlinks moved to Col B one under the other
with no spaces.
Thanks