URGENT - have code that only works for 32 bit-need 64 too!

is it just as simple as changing it to 64? in the code... it cant be im assuming .

this is the part of the code which states 32 bit

'Code to open ANY files double clicking on cell or range of cells

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                                      (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
                                       ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOW            As Long = 5&

I really am lost with this code... to be blunt. is that ALL I have to change in that code to allow a person using 64 bit to use the spreadsheet>>

if you can sort this, I would APPRECIATE it a lot

I tried but when I open it on 64 bit it still comes up with errors. and says something like "I need to add a ptrsafe attribute

this is full code..

'Code to open ANY files double clicking on cell or range of cells

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                                      (ByVal hWnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
                                       ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOW            As Long = 5&
'change path as required.
Sub OpenFile(strFilePath As String)
   ShellExecute Application.hWnd, "Open", strFilePath, 0&, 0&, SW_SHOW
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
    
    If Not Intersect(Target, Range("BJ6")) Is Nothing Then
        cancel = True
        Sheets("Drawings").Select
    ElseIf Not Intersect(Target, Range("AF6")) Is Nothing Then
        cancel = True
        Sheets("Finance").Select
    ElseIf Not Intersect(Target, Range("AP6")) Is Nothing Then
        cancel = True
        Sheets("Design").Select
    ElseIf Not Intersect(Target, Range("AZ6")) Is Nothing Then
        cancel = True
        Sheets("Materials").Select
    ElseIf Not Intersect(Target, Range("BT6")) Is Nothing Then
        cancel = True
        Sheets("DFP").Select
    ElseIf Not Intersect(Target, Range("CD6")) Is Nothing Then
        cancel = True
        Sheets("Delivery & Docs").Select

    End If

End Sub

sorry didn edit code the way you told me.. hang on

any ideas?????

receiving errors about the rest of the code now - e.g the string parameters etc..

this is full code after edit...

I can now open spreadsheet but the links to files don't work

'Code to open ANY files double clicking on cell or range of cells

Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
                                      (ByVal hWnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
                                       ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
Const SW_SHOW            As Long = 5&
'change path as required.
Sub OpenFile(strFilePath As String)
   ShellExecute Application.hWnd, "Open", strFilePath, 0&, 0&, SW_SHOW
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
    
    If Not Intersect(Target, Range("BJ6")) Is Nothing Then
        cancel = True
        Sheets("Drawings").Select
    ElseIf Not Intersect(Target, Range("AF6")) Is Nothing Then
        cancel = True
        Sheets("Finance").Select
    ElseIf Not Intersect(Target, Range("AP6")) Is Nothing Then
        cancel = True
        Sheets("Design").Select
    ElseIf Not Intersect(Target, Range("AZ6")) Is Nothing Then
        cancel = True
        Sheets("Materials").Select
    ElseIf Not Intersect(Target, Range("BT6")) Is Nothing Then
        cancel = True
        Sheets("DFP").Select
    ElseIf Not Intersect(Target, Range("CD6")) Is Nothing Then
        cancel = True
        Sheets("Delivery & Docs").Select

    End If

End Sub

just saying there are problems with strings etc cant be single or something

bear with me.

this is the error now?

When transposing, why cut some instruction from original working 32 bits version ?‼

Just read your original post and see what is lacking …

Yes, the answer is in the error message …

I haven't cut any code. I know it looks that way from pic.. but I haven't. its all there. until I try to use a link and then that pops up and looks like a big chunk of the code is gone but it hasnt

did I say you guys were legends? if not I am now. thanks it works now! finally!