Hyperlink to document using partial document name

Here is an example of the code I am currently using. It turns whatever value I enter into the cell into a hyperlink to a photo on the designated directory.


[code]
Private Sub Worksheet_Change(ByVal Target As Range)
Dim FullPathName As String
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub

If Target.Column = 1 Then
Application.EnableEvents = False
FullPathName = "\\gfchuntns02\groups\CustomerProfile\Ba_PRICING CYLINDER\QUOTES\" & Target & ".jpg"
Clear.Target

Target.Hyperlinks.Add Anchor:=Target, _
Address:=FullPathName, TextToDisplay:=FullPathName
Application.EnableEvents = True
End If

End Sub[code]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

I've added the tags for you this time, but please remember to use them from now on.