The user of my Excel workbook with VBA

[Eric Penfold]

When the user tries to use the workbook it says "Can`t find Project or Library"??
Why is this??

This is where is shows an error

#If VBA7 Then
    Private 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
#Else
    Private Declare PtrSafe 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
#End If
Const SW_HIDE            As Long = 0&

 

[Eric Penfold]

If that`s the case then I will knock it off

 

[Eric Penfold]

This is the code below is stops working on

StrConv

Says error "Can`t find Project or Library"

#If VBA7 Then
    Private Declare PtrSafe Function StrCmpLogicalW Lib "shlwapi.dll" (ByVal string1 As String, ByVal string2 As String) As Long
    #End If
Public Sub Insertion_Sort(ByRef arr As Variant)

    Dim i As Long, j As Long
    Dim temp As String

    For i = 1 To UBound(arr)
        temp = arr(i)
        For j = i To 1 Step -1
            If StrCmpLogicalW(StrConv(arr(j - 1), vbUnicode), StrConv(temp, vbUnicode)) = 1 Then
                arr(j) = arr(j - 1)
            Else
                Exit For
            End If
        Next
        arr(j) = temp
    Next

End Sub

 

[RoryA]

That's definitely a references error. Can you get the user to check the references with the workbook open on his machine? One of them will be prefixed with 'MISSING:' in the list.

 

[Eric Penfold]

I have his worksheet open but can`t find what your saying.

 

[RoryA]

It needs to be done on his machine. Then check in the VB Editor under Tools - References.

 

[Eric Penfold]

That is what I did

 

[RoryA]

What did the References dialog look like?

 

[Eric Penfold]

Far as I could see identical top mine.

 

[RoryA]

There has to be a missing reference for you to get that error. Change the code to use VBA.StrConv which should rectify that, but you still have a missing reference which will probably affect other code.