Creating a UDF to execute a formula

[jjobrien03]

I am trying to create a UDF that executes the following formula but I am unsure how exactly to structure the code for UDFs, more up to speed on run-of-the-way VBA macros. Any guidance would be appreciated.

=LEFT(XX,FIND("-",XX)-1)+SUBSTITUTE(RIGHT(XX,LEN(XX)-FIND("-",XX)),"+","")/32+IF(RIGHT(RIGHT(XX,LEN(XX)-FIND("-",XX)),1)="+",1/64,0)

 

[DanteAmor]

Try this

Function formulaXX(c As Range)
  formulaXX = Evaluate(Replace("=LEFT(@,FIND(""-"",@)-1)+" & _
      "SUBSTITUTE(RIGHT(@,LEN(@)-FIND(""-"",@)),""+"","""")/32+" & _
      "IF(RIGHT(RIGHT(@,LEN(@)-FIND(""-"",@)),1)=""+"",1/64,0)", "@", c.Address))
End Function

Example to use:

=formulaXX(B3)

 

[jjobrien03]

Awesome - thank you very much

 

[DanteAmor]

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