VBA for opening certain file, NOT just a file location

I have a spread sheet with rollover hyperlinks to change cells certain colours when the mouse hovers over them. I also have a script which allows me to double click on a cell which makes it open a file location so the user can choose which (or multiple) files to open.

however. when I try to add the actual file name on the end of the file destination it doesn't seem to accept it. my code is shown below. what am I doing wrong?

I have attached the spread sheet and shown code below

'Macro to apply to range of cells and open location files for multiple selection

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)

Set t = target
Set e6 = Range("e6")
If Intersect(t, e6) Is Nothing Then Exit Sub
Cancel = True
ChDir "C:\Users\boymam\desktop"
  Which = Application.GetOpenFilename(MultiSelect:=True)
If IsArray(Which) Then
 For I = 1 To UBound(Which)
 Workbooks.Open Which(I)
 Next
End If
 End Sub

when I try to add a file name after the "C:\users\boymam\desktop" It doesn't work, either im added wrong or the codes wrong? if someone could show me how to add the actual file id appreciate it,

thanks

sorry a little confused. could you be kind enough to place that into my code to show me where to add that

Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean)

Set t = target
Set e6 = Range("e6")
If Intersect(t, e6) Is Nothing Then Exit Sub
Cancel = True

ChDir "C:\Users\boymam\desktop"

If Instr(ChrDir,".") = False then 'Should be a '.' not a ',' as I stated above.
'If a folder
  Which = Application.GetOpenFilename(MultiSelect:=True)
If IsArray(Which) Then
 For I = 1 To UBound(Which)
 Workbooks.Open Which(I)
 Next
End If
Else
'If a file
Workbooks.Open(ChrDir)
End IF
 End Sub

If it's directed to a folder it will execute the code you provided (I have't checked this so I assume your code already works for folders), if it's a file (or rather has a file extension), then it will just directly open the file. Is that long the lines of what you were looking for?

I either having a bad morning or im a **** lol ..cos im still confused.

how would that code look if you forget the option to open a folder and JUST have it directly open this file upon double click

C:\Users\boymam\Desktop\Graphics

this is the destination folder.. IN that folder there is a picture simply named "2". being dumb as I am. I am trying to simply do this

C:\Users\boymam\Desktop\Graphics\2 or .2 or "2"

can you please show the whole formula for that? because im doing something stupid I know it

yeah my code works. I will try this out in a minute. thanks

Hmm.

The file won't simply be named '2', it will be 2.png or have some other file extension appended to it (you might need to go into properties).

OH YEAH... GOD im stupid lol its Friday, forgive me lol

im so sorry mate, but still wont work. file is called 2.png

I tried to just add that to the end of the destination but wont work.

Is an error coming up or is it just not doing anything?

I'm an idiot. An utter idiot. Since when has a PNG file been a workbook?

You're right, it is friday!

says the path isn't found. which implies im getting the name of the file wrong but im not.. I must be added it wrong.

im simply doing this.

C:\Users\boymam\desktop\graphics and adding 2.png like so
C:\users\boymam\desktop\graphics\2.png

but do I have to do it differently? such as graphics.2.png graphics\"2.png" etc??

its almost as if the code I have is only designed to open FOLDERS and not the files themselves. so it doesn't recognise it.

THe problem is we're using the workbooks.open command to open a non-workbook! If you try it on an excel file it wil work perfectly. I have to leave the office for a while now, but later I can set it to open a generic 'file' rather than just a workbook if you want.

that would be perfect mate. cheers for help. im leaving at 12 today anyway. so prob continue this monday