Function to grab info in middle of string

Thanks everyone for your help but I was looking for code for a function.

Richard,
You hit the nail on the head, that works perfectly thanks. Here are my results

Public Function REF(Cell As String) As String
If InStr(Cell, "@") <> 0 Then
REF = Split(Split(Cell, "$")(1), "@")(0)
Else
REF = ""
End If
End Function