Functions having Errors

[woon8888]

I'm creating a sub to call a function, but i kept having error from the below code.

Sub ttimeTEST()
Dim timeA As Date
Dim locnA, locnB As String

locnA = "Singapore"
locnB = "Malaysia"

timeA = TravelTime(locnA, locnB)

Debug.Print (timeA)

End Sub

Private Function TravelTime(ByRef locnA As String, ByRef locnB As String) As Date
    Dim ttimeWS As Worksheet
    Dim TTTime As Date
    
    Set ttimeWS = ThisWorkbook.Sheets("ttime")
    
    TTTime = Intersect(ttimeWS.Columns(1).Find(locnA).EntireRow, ttimeWS.Rows(1).Find(locnB).EntireColumn).Value

End Function

 

[Fluff]

Try it like

Dim locnA As String, locnB As String

Otherwise LocnA is a Variant

 

[woon8888]

thanks and it works! However, when i debug.print the results is not the same as the output from the function.
The TTTime states : 5hrs but timeA states 12:00:00 AM

 

[Fluff]

In that case can you post some data from the ttime sheet.
MrExcel has a tool called “XL2BB” that lets you post samples of your data that will allow us to copy/paste it to our Excel spreadsheets, so we can work with the same copy of data that you are. Instructions on using this tool can be found here: XL2BB Add-in

Note that there is also a "Test Here” forum on this board. This is a place where you can test using this tool (or any other posting techniques that you want to test) before trying to use those tools in your actual posts.