ByRef Type Mismatch error

[sharky12345]

I'm trying to get a procedure where a user browses for a file and check if it's open.

I've played around with this but it's giving me an error;

FileToOpen = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsm), *.xlsm")
If FileToOpen = "False" Then
ActiveWorkbook.Close SaveChanges:=False
End If
FilePath = Left$(FileToOpen, InStrRev(FileToOpen, "\"))
FileName = Mid$(FileToOpen, InStrRev(FileToOpen, "\") + 1)
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim xRet As Boolean
xRet = IsWorkBookOpen(FileToOpen)
If xRet Then
MsgBox "The file is open", vbInformation, "Excel"
Else
MsgBox "The file is not open", vbInformation, "Excel"
End If

I'm getting 'ByRef argument type mismatch' and it highlights 'FileToOpen' on the following line;

xRet = IsWorkBookOpen(FileToOpen)

Anyone know why this is happening?

 

[wideboydixon]

That would depend on the declaration of the IsWorkBookOpen function. What does that look like?

WBD

 

[sharky12345]

Hi - here you go;

Function IsWorkBookOpen(Name As String) As Boolean
Dim xWb As Workbook
On Error Resume Next
Set xWb = Application.Workbooks.Item(Name)
IsWorkBookOpen = (Not xWb Is Nothing)
End Function

 

[RoryA]

Is FileToToOpen declared as a String?

 

[wideboydixon]

Or you could do this maybe?

xRet = IsWorkBookOpen(CStr(FileToOpen))

WBD

 

[sharky12345]

No it wasn't!

It now works - thanks so much!