Need help creating hyperlinks using VBA

[vt804boy]

Im working on a database and I need to create a hyperlink depending on a value in a specific range cells. For example, the range is A1:A100, If there is a "Y" in this range then I need that "Y" to be converted to a hyperlink to another sheet in the same workbook.

If someone could tell me how to code a hyperlink I would greatly appreciate it.

Here is the code I have already its probably not correct. This is my best guess so far

Sub PlaceHyper()

Set MyRange = Range("A7:A1000")
For Each Cell In MyRange

If Cell.Value = "Y" Then
**Needed hyperlink code**
End If

End Sub

Thank you in advance

 

[ravishankar]

Hi
try these codes

Dim b As Long
For b = 2 To Range("A65536").End(xlUp).Row
If Cells(b, 1) = "Y" Then
Range("A" & b).Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Sheet3!A1", TextToDisplay:="Y"
End If
Next b
MsgBox "Complete"
End Sub

it creates hyperlink to sheet3 cell A1 wherever Y is seen in col A
Ravi