Copy HYPERLINKS

[Guest]

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

 

[Guest]

Are they =HYPERLINK functions or Inserted hyperlinks??

 

[Guest]

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

 

[Guest]

I did TRY and it worked the VERY BEST. Thanks a great deal