Hi,

I am getting an Ambigious Name Detected "OpenFile"

I cannot seem to locate the reason for this in my code.

Does that mean the ambiguity (sp) is on the same form or anywhere in the database?

Below is the code it is stopping at, can someone tell me what I need to be looking for?

rivate Sub bOpenFile_Click()
On Error GoTo Err_bOpen_Click
Me.tbHidden.SetFocus

If IsNull(tbFile) Or tbFile = "" Then
MsgBox "Please browse and select a valid file to open.", vbCritical, "Invalid File"
Else
OpenFile (tbFile)
End If

Exit_bOpen_Click:
Exit Sub

Err_bOpen_Click:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_bOpen_Click

End Sub

Thanks.

Fen

Maybe you called your Module "OpenFile" *and* your sub/function "OpenFile"?

Thanks,

The module is called dOpenFile and the button is called bOpenFile and the sub for this button to open the file is called bOpenFile? I am lost... Any insight would be great..

Here is the entire forms code..

Option Compare Database
Option Explicit

Private Function ParseFileName()
On Error GoTo Err_ParseFileName

Dim sFullName As String
Dim sFilePathOnly As String
Dim sDrive As String
Dim sPath As String
Dim sLocation As String
Dim sFileName As String

sFullName = tbFile.Value

' Find the final "\" in the path.
sPath = sFullName

Do While Right$(sPath, 1) <> "\"
sPath = Left$(sPath, Len(sPath) - 1)
Loop

' Find the Drive.
sDrive = Left$(sFullName, InStr(sFullName, ":") + 1)
'tbDrive = sDrive

' Find the Location.
sLocation = Mid$(sPath, Len(sDrive) - 2)
'tbLocation = sLocation

' Find the Path.
sPath = Mid$(sPath, Len(sDrive) + 1)
'tbPath = sPath

' Find the file name.
sFileName = Mid$(sFullName, Len(sPath) + 4)
tbFileName = sFileName

Exit_ParseFileName:
Exit Function

Err_ParseFileName:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_ParseFileName

End Function

Private Sub AddInstr_GotFocus()
Me.AddInstr = Me.AddInstr & " [New Entry] " & User.UserName & Space(1) & (Now)
End Sub


Private Sub bOpenFile_Click()
On Error GoTo Err_bOpen_Click
Me.tbHidden.SetFocus

If IsNull(tbFile) Or tbFile = "" Then
MsgBox "Please browse and select a valid file to open.", vbCritical, "Invalid File"
Else
OpenFile (tbFile)
End If

Exit_bOpen_Click:
Exit Sub

Err_bOpen_Click:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_bOpen_Click

End Sub


Private Sub Combo490_AfterUpdate()
Select Case Me.Combo490
Case "Automobile"
Dim stDocName As String
stDocName = "ConditionReportAutomobile"
DoCmd.OpenReport stDocName, acPreview

Case "Motorcycle"
Dim stDocName1 As String
stDocName1 = "ConditionReportMotorcycle"
DoCmd.OpenReport stDocName1, acPreview

End Select
End Sub

Private Sub EmplZIP_AfterUpdate()
Me.EmplCity = DLookup("City", "ZipCityState", "ZipCode = '" & Me.EmplZIP & "'")
Me.EmplState = DLookup("State", "ZipCityState", "ZipCode = '" & Me.EmplZIP & "'")
End Sub

Private Sub EnteredBy_GotFocus()
Me.EnteredBy = User.UserName
End Sub

Private Sub Form_Load()
Me.txtUserName = User.UserName & Space(1) & "Logged In TX " & (Now)
End Sub

Private Sub HomeZIP_AfterUpdate()
Me.HomeCity = DLookup("City", "ZipCityState", "ZipCode = '" & Me.HomeZIP & "'")
Me.HomeState = DLookup("State", "ZipCityState", "ZipCode = '" & Me.HomeZIP & "'")
End Sub

Private Sub HomeZIP2_AfterUpdate()
Me.HomeCity2 = DLookup("City", "ZipCityState", "ZipCode = '" & Me.HomeZip2 & "'")
Me.HomeState2 = DLookup("State", "ZipCityState", "ZipCode = '" & Me.HomeZip2 & "'")
End Sub

Private Sub HomeZIP3_AfterUpdate()
Me.HomeCity3 = DLookup("City", "ZipCityState", "ZipCode = '" & Me.HomeZip3 & "'")
Me.HomeState3 = DLookup("State", "ZipCityState", "ZipCode = '" & Me.HomeZip3 & "'")
End Sub

Private Sub Label450_Click()
Dim sVIN As String
sVIN = VIN 'FirstName is the name of the table field

DoCmd.GoToRecord , , acNewRec

VIN = sVIN

sVIN = ""
End Sub



Private Sub Label453_Click()
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Label453_Click:
Exit Sub

Err_Label453_Click:
MsgBox Err.Description
Resume Exit_Label453_Click
End Sub

Private Sub Label510_Click()
Dim strFilter As String
Dim lngFlags As Long
Dim varFileName As Variant

Me.tbHidden.SetFocus

' strFilter = "Access (*.mdb)" & vbNullChar & "*.mdb" _
' & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*"
' strFilter = "Access Files (*.mdb)" & vbNullChar & "*.mdb*"
strFilter = "All Files (*.*)" & vbNullChar & "*.*"

lngFlags = tscFNPathMustExist Or tscFNFileMustExist Or tscFNHideReadOnly

varFileName = tsGetFileFromUser( _
fOpenFile:=True, _
strFilter:=strFilter, _
rlngflags:=lngFlags, _
strInitialDir:="", _
strDialogTitle:="Find File (Select The File And Click The Open Button)")
'remove the strInitialDir:="C:\Windows\", _ line if you do not want the Browser to open at a specific location

If IsNull(varFileName) Or varFileName = "" Then
Debug.Print "User pressed 'Cancel'."
Beep
MsgBox "File selection was canceled.", vbInformation
Exit Sub
Else
'Debug.Print varFileName
tbFile = varFileName
End If

Call ParseFileName

Exit_bBrowse_Click:
Exit Sub

Err_bBrowse_Click:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_bBrowse_Click
End Sub

Private Sub Notes_GotFocus()
Me.Notes = Me.Notes & " [New Entry] " & User.UserName & Space(1) & (Now)
End Sub

Private Sub OfficeNotes_GotFocus()
Me.OfficeNotes = Me.OfficeNotes & " [New Entry] " & User.UserName & Space(1) & (Now)
End Sub



Sub Open_SearchForm_Click()
On Error GoTo Err_Open_SearchForm_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "SearchForm"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Open_SearchForm_Click:
Exit Sub

Err_Open_SearchForm_Click:
MsgBox Err.Description
Resume Exit_Open_SearchForm_Click

End Sub
Sub Next_Record_Button_Click()
On Error GoTo Err_Next_Record_Button_Click


DoCmd.GoToRecord , , acNext

Exit_Next_Record_Button_Click:
Exit Sub

Err_Next_Record_Button_Click:
MsgBox Err.Description
Resume Exit_Next_Record_Button_Click

End Sub





Private Sub OrderLocation_Exit(Cancel As Integer)
Me.Refresh

End Sub





Sub Prev_Record_Button_Click()
On Error GoTo Err_Prev_Record_Button_Click


DoCmd.GoToRecord , , acPrevious

Exit_Prev_Record_Button_Click:
Exit Sub

Err_Prev_Record_Button_Click:
MsgBox Err.Description
Resume Exit_Prev_Record_Button_Click

End Sub
Sub AddOrderButton_Click()
On Error GoTo Err_AddOrderButton_Click


DoCmd.GoToRecord , , acNewRec

Exit_AddOrderButton_Click:
Exit Sub

Err_AddOrderButton_Click:
MsgBox Err.Description
Resume Exit_AddOrderButton_Click

End Sub
Sub PrintOrder_Click()
On Error GoTo Err_PrintOrder_Click

Dim stDocName As String

stDocName = "Order Rpt"
DoCmd.OpenReport stDocName, acNormal

Exit_PrintOrder_Click:
Exit Sub

Err_PrintOrder_Click:
MsgBox Err.Description
Resume Exit_PrintOrder_Click

End Sub
Sub Combo173_AfterUpdate()
' Find the record that matches the control.
DoCmd.ShowAllRecords
Me.RecordsetClone.FindFirst "[OrderID] = " & Me![Combo173]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub

Private Sub List184_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[OrderID] = " & Str(Me![List184])
Me.Bookmark = rs.Bookmark
End Sub

Private Sub Combo186_AfterUpdate()
' Find the record that matches the control.
Dim rs1 As Object

Set rs1 = Me.Recordset.Clone
rs.FindFirst "[OrderID] = " & Str(Me![Combo186])
Me.Bookmark = rs1.Bookmark
End Sub

Private Sub Command192_Click()
On Error GoTo Err_Command192_Click


DoCmd.Close

Exit_Command192_Click:
Exit Sub

Err_Command192_Click:
MsgBox Err.Description
Resume Exit_Command192_Click

End Sub
Private Sub Command212_Click()
On Error GoTo Err_Command212_Click

Dim stDocName As String

stDocName = "ALL_ClientEmployeeAdjuster_ASSIGNMENTS"
DoCmd.OpenReport stDocName, acPreview

Exit_Command212_Click:
Exit Sub

Err_Command212_Click:
MsgBox Err.Description
Resume Exit_Command212_Click

End Sub
Private Sub Command213_Click()
On Error GoTo Err_Command213_Click

Dim stDocName As String

stDocName = "ALL_ClientEmployeeAdjuster_ASSIGNMENTS"
DoCmd.OpenReport stDocName, acPreview

Exit_Command213_Click:
Exit Sub

Err_Command213_Click:
MsgBox Err.Description
Resume Exit_Command213_Click

End Sub
Private Sub Command214_Click()
On Error GoTo Err_Command214_Click

Dim stDocName As String

stDocName = "EmailOrder"
DoCmd.RunMacro stDocName

Exit_Command214_Click:
Exit Sub

Err_Command214_Click:
MsgBox Err.Description
Resume Exit_Command214_Click

End Sub
Private Sub Command215_Click()
On Error GoTo Err_Command215_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Clients"

stLinkCriteria = "[ClientID]=" & "'" & Me![ClientID] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command215_Click:
Exit Sub

Err_Command215_Click:
MsgBox Err.Description
Resume Exit_Command215_Click

End Sub
Private Sub Command224_Click()
On Error GoTo Err_Command224_Click


DoCmd.Close

Exit_Command224_Click:
Exit Sub

Err_Command224_Click:
MsgBox Err.Description
Resume Exit_Command224_Click

End Sub
Private Sub Command227_Click()
On Error GoTo Err_Command227_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Command227_Click:
Exit Sub

Err_Command227_Click:
MsgBox Err.Description
Resume Exit_Command227_Click

End Sub
Private Sub Command228_Click()
On Error GoTo Err_Command228_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "SearchForm"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command228_Click:
Exit Sub

Err_Command228_Click:
MsgBox Err.Description
Resume Exit_Command228_Click

End Sub
Private Sub Command229_Click()

Dim stDocName As String

stDocName = "macCloseOrderDetails"
DoCmd.RunMacro stDocName

Exit_Command455_Click:
Exit Sub

End Sub
Private Sub Command233_Click()
On Error GoTo Err_Command233_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "SkipTrace"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command233_Click:
Exit Sub

Err_Command233_Click:
MsgBox Err.Description
Resume Exit_Command233_Click

End Sub
Private Sub Command259_Click()
On Error GoTo Err_Command259_Click

Dim stDocName As String

stDocName = "InvoiceAltMacro"
DoCmd.RunMacro stDocName

Exit_Command259_Click:
Exit Sub

Err_Command259_Click:
MsgBox Err.Description
Resume Exit_Command259_Click

End Sub
Private Sub Command260_Click()
On Error GoTo Err_Command260_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FeeCodesTableAltQuery"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command260_Click:
Exit Sub

Err_Command260_Click:
MsgBox Err.Description
Resume Exit_Command260_Click

End Sub
Private Sub Command274_Click()
On Error GoTo Err_Command274_Click

Dim stDocName As String

stDocName = "RunDailyUpdate"
DoCmd.RunMacro stDocName

Exit_Command274_Click:
Exit Sub

Err_Command274_Click:
MsgBox Err.Description
Resume Exit_Command274_Click

End Sub
Private Sub Command308_Click()
On Error GoTo Err_Command308_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Employees"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command308_Click:
Exit Sub

Err_Command308_Click:
MsgBox Err.Description
Resume Exit_Command308_Click

End Sub
Private Sub Command340_Click()
On Error GoTo Err_Command340_Click

Dim stDocName As String

stDocName = "InvoiceAltMacro"
DoCmd.RunMacro stDocName

Exit_Command340_Click:
Exit Sub

Err_Command340_Click:
MsgBox Err.Description
Resume Exit_Command340_Click

End Sub
Private Sub Command341_Click()
On Error GoTo Err_Command341_Click

Dim stDocName As String

stDocName = "PrintSpecificUpdate"
DoCmd.RunMacro stDocName

Exit_Command341_Click:
Exit Sub

Err_Command341_Click:
MsgBox Err.Description
Resume Exit_Command341_Click

End Sub
Private Sub Command342_Click()
On Error GoTo Err_Command342_Click

Dim stDocName As String

stDocName = "EmailSpecificUpdate"
DoCmd.RunMacro stDocName

Exit_Command342_Click:
Exit Sub

Err_Command342_Click:
MsgBox Err.Description
Resume Exit_Command342_Click

End Sub
Private Sub Command343_Click()
On Error GoTo Err_Command343_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Command343_Click:
Exit Sub

Err_Command343_Click:
MsgBox Err.Description
Resume Exit_Command343_Click

End Sub
Private Sub Command344_Click()
On Error GoTo Err_Command344_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Command344_Click:
Exit Sub

Err_Command344_Click:
MsgBox Err.Description
Resume Exit_Command344_Click

End Sub
Private Sub Command345_Click()
On Error GoTo Err_Command345_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Command345_Click:
Exit Sub

Err_Command345_Click:
MsgBox Err.Description
Resume Exit_Command345_Click

End Sub


Private Sub Status_BeforeUpdate(Cancel As Integer)
Me.StatusChangeAudit = "Status Repod By; " & User.UserName & Space(1) & (Now)
End Sub


Private Sub Command379_Click()
On Error GoTo Err_Command379_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FenSearch"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command379_Click:
Exit Sub

Err_Command379_Click:
MsgBox Err.Description
Resume Exit_Command379_Click

End Sub
Private Sub Command381_Click()
On Error GoTo Err_Command381_Click


DoCmd.GoToRecord , , acNext

Exit_Command381_Click:
Exit Sub

Err_Command381_Click:
MsgBox Err.Description
Resume Exit_Command381_Click

End Sub
Private Sub Command382_Click()
On Error GoTo Err_Command382_Click


DoCmd.GoToRecord , , acPrevious

Exit_Command382_Click:
Exit Sub

Err_Command382_Click:
MsgBox Err.Description
Resume Exit_Command382_Click

End Sub
Private Sub Command383_Click()
On Error GoTo Err_Command383_Click


DoCmd.GoToRecord , , acPrevious

Exit_Command383_Click:
Exit Sub

Err_Command383_Click:
MsgBox Err.Description
Resume Exit_Command383_Click

End Sub
Private Sub Command394_Click()
On Error GoTo Err_Command394_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "DispositionFrm"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command394_Click:
Exit Sub

Err_Command394_Click:
MsgBox Err.Description
Resume Exit_Command394_Click

End Sub
Private Sub Command395_Click()
On Error GoTo Err_Command395_Click

Dim stDocName As String

stDocName = "DEMANDLETTERRPT"
DoCmd.OpenReport stDocName, acPreview

Exit_Command395_Click:
Exit Sub

Err_Command395_Click:
MsgBox Err.Description
Resume Exit_Command395_Click

End Sub
Private Sub Command396_Click()
On Error GoTo Err_Command396_Click

Dim stDocName As String

stDocName = "DemandLetterRpt"
DoCmd.OpenReport stDocName, acPreview

Exit_Command396_Click:
Exit Sub

Err_Command396_Click:
MsgBox Err.Description
Resume Exit_Command396_Click

End Sub
Private Sub Command397_Click()
On Error GoTo Err_Command397_Click

Dim stDocName As String

stDocName = "DemandLetterRpt"
DoCmd.OpenReport stDocName, acPreview

Exit_Command397_Click:
Exit Sub

Err_Command397_Click:
MsgBox Err.Description
Resume Exit_Command397_Click

End Sub
Private Sub Command401_Click()
On Error GoTo Err_Command401_Click

Dim stDocName As String

stDocName = "DemandLetterRpt"
DoCmd.OpenReport stDocName, acNormal

Exit_Command401_Click:
Exit Sub

Err_Command401_Click:
MsgBox Err.Description
Resume Exit_Command401_Click

End Sub
Private Sub Command402_Click()
On Error GoTo Err_Command402_Click

Dim stDocName As String

stDocName = "FinalDemandLetterRpt"
DoCmd.OpenReport stDocName, acNormal

Exit_Command402_Click:
Exit Sub

Err_Command402_Click:
MsgBox Err.Description
Resume Exit_Command402_Click

End Sub
Private Sub Command426_Click()
On Error GoTo Err_Command426_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm NewOrderVINVerify"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command426_Click:
Exit Sub

Err_Command426_Click:
MsgBox Err.Description
Resume Exit_Command426_Click

End Sub
Private Sub Command441_Click()
On Error GoTo Err_Command441_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "ParadigmWeb"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command441_Click:
Exit Sub

Err_Command441_Click:
MsgBox Err.Description
Resume Exit_Command441_Click

End Sub


Private Sub Command466_Click()
On Error GoTo Err_Command466_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmPictures"

stLinkCriteria = "[OrderID]=" & Me![OrderID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command466_Click:
Exit Sub

Err_Command466_Click:
MsgBox Err.Description
Resume Exit_Command466_Click

End Sub
Private Sub Command480_Click()
On Error GoTo Err_Command480_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "DispositionFrm"

stLinkCriteria = "[orderID]=" & Me![OrderID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command480_Click:
Exit Sub

Err_Command480_Click:
MsgBox Err.Description
Resume Exit_Command480_Click

End Sub

Private Sub Command484_Click()
On Error GoTo Err_Command484_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmOrderImages"

stLinkCriteria = "[OrderID]=" & Me![OrderID]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command484_Click:
Exit Sub

Err_Command484_Click:
MsgBox Err.Description
Resume Exit_Command484_Click

End Sub

Thanks,

The module is called dOpenFile and the button is called bOpenFile and the sub for this button to open the file is called bOpenFile? I am lost... Any insight would be great..

This is the culprit. You cannot have anything named same twice. Call the sub something like bOpenFileSub or whatever. (Why aren't you just using OnClick event?)

Well, for one this doesn't make sense without a function, or sub, existing somewhere:

Private Sub bOpenFile_Click()
On Error GoTo Err_bOpen_Click
Me.tbHidden.SetFocus

If IsNull(tbFile) Or tbFile = "" Then
MsgBox "Please browse and select a valid file to open.", vbCritical, "Invalid File"
Else
OpenFile (tbFile)
End If

Exit_bOpen_Click:
Exit Sub

Err_bOpen_Click:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_bOpen_Click

End Sub


Where is that function or sub? If you still can't find where OpenFile is being used in multiple places, go download V-Tools and use the TOTAL DEEP SEARCH which will let you search through everything in your database.

Thanks, the function for OpenFile is a module called dOpenFile. Am I not calling it correctly?

Option Compare Database
Option Explicit

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

Public Function OpenFile(sFileName As String)
On Error GoTo Err_OpenFile

OpenFile = ShellExecute(Application.hWndAccessApp, "Open", sFileName, "", "C:\", 1)

Exit_OpenFile:
Exit Function

Err_OpenFile:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_OpenFile

End Function

What we're getting at is somewhere somehow there is a duplicate OpenFile object somewhere which is why you are getting your ambiguous name detected. Use the Total Deep Search tool (V-Tools are free, just google it) to find all instances where it is being used and it might reveal an object or field name with that same name.

Thanks, so if anywhere in the database there is an object or field name called OpenFile that is what i need to find (in the name right)? I can still call the OpenFile function as much as I want to correct?

Thanks.

Fen

Yes, you just need to get rid of whatever is named the same, object name or field name. Calling it within a function isn't the problem; you can call it from many places. It's just using it as the name of something.

If you can't find it, you might be able to import everything into a new, blank mdb file to reset it all.

Ok , so I am looking for anything in the database other than a call to OpenFile on any other forms etc..

Can you also give me more specifics on the Deep Search Tool, I did a goole but am having no luck..

Thanks..

Fen

Ok, Got it. I did a search for OpenFile and noted that there were indeed more than one instances of OpenFile in two seperate moduels. I renamed the Public Function for this particular one OpenFileCR, updated the code accordingly and it works perfectly.

Thanks for your time and efforts helping me..

Fen How

You can find the V-Tools Add-in here

http://www.skrol29.com/dev/en_vtools.htm

Follow the directions in the readme file to install. Then you access it while at the main database window by using TOOLS > ADD-INS > V-TOOLS TOTAL DEEP SEARCH

Ok, Got it. I did a search for OpenFile and noted that there were indeed more than one instances of OpenFile in two seperate moduels. I renamed the Public Function for this particular one OpenFileCR, updated the code accordingly and it works perfectly.

Thanks for your time and efforts helping me..

Fen How

Ah, great! I guess I wasn't fast enough on the other info :D

Glad to hear you got it.