GetValue=ExecuteExcel4Macro

[adamjones112182]

Hi all,

I was wondering if I could get some help with this

I keep on getting Run-Time Error'1004':



Private Function GetValue(Path, File, Sheet, Ref)
' Retrieve a value from a closed workbook

Dim arg As String

' Make sure the file exists
If Right(Path, 1) <> "\" Then Path = Path & "\"
If Dir(Path & File) = "" Then
GetValue = "File Not Found"
Exit Function
End If

' Create the argument
arg = "" & Path & "[" & File & "]" & Sheet & "'!" & Range(Ref).Range("A1").Address(, , xlR1C1)
' Debug.Print arg
' Excute an XLM macro
GetValue = ExecuteExcel4Macro(arg) (Error occurs here)

End Function


I have run a debug, but I am still baffled

 

[adamjones112182]

Hi,

Thank you for the information, I am going to give it a try right now

 

[adamjones112182]

I got it to work, you are the man

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.