I made a minor change, I am not sure what you are trying to do using
Application.OnKey "{F2}"....


Sub MakeHyperlink()
Range("B8").Select

Do Until ActiveCell.Value = ""
Application.OnKey "{F2}"
Application.OnKey "{HOME}"
Application.OnKey "{Del}"
Application.OnKey "{Enter}"
ActiveCell.Offset(0, 1).Select
Loop

End Sub


--
anilsolipuram
------------------------------------------------------------------------
anilsolipuram's Profile: http://www.excelforum.com/member.php...o&userid=16271
View this thread: http://www.excelforum.com/showthread...hreadid=380569