Simple function

[bradyj7]

Hi there,

The code below convert speed in km/hr to m/s. How can I create a function to the same thing?

Thank you

Dim LastRow As Long
LastRow = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range("d1").FormulaR1C1 = "Speed (obd) [m/s]"
Range("d2:d" & LastRow).FormulaR1C1 = "=rc[-1]/3.6"

 

[jasonb75]

Maybe

Public Function msec(kmh As Double) As Double
    msec = rng/3.6
End Function