How to return a value as an empty cell

[gone83]

Hello,

I have one question.

1. How to return a value as empty cell.

Function GPH(FC, CT, PSM, TMS, ROT_type As String) As Double
   FCCT = FC / CT
   If FCCT >= 20 Then
    Select Case LCase(ROT_type)
        Case "si"
            GPH = ROT_SI(20, 1, PSM, TMS)
        Case "vi"
            GPH = ROT_VI(20, 1, PSM, TMS)
        Case "ei"
            GPH = ROT_EI(20, 1, PSM, TMS)
        Case "lti"
            GPH = ROT_LTI(20, 1, PSM, TMS)
        End Select
   ElseIf FCCT <= 1 Then
        Select Case LCase(ROT_type)
        Case "si"
            GPH = Empty
        Case "vi"
            GPH = Empty
        Case "ei"
            GPH = Empty
        Case "lti"
            GPH = Empty
        End Select
  Else
          Select Case LCase(ROT_type)
        Case "si"
            GPH = ROT_SI(FC, CT, PSM, TMS)
        Case "vi"
            GPH = ROT_VI(FC, CT, PSM, TMS)
        Case "ei"
            GPH = ROT_EI(FC, CT, PSM, TMS)
        Case "lti"
            GPH = ROT_LTI(FC, CT, PSM, TMS)
        End Select
    End If
    
End Function

and I want this GPH return as empty cell.

ElseIf FCCT <= 1 Then
        Select Case LCase(ROT_type)
        Case "si"
            GPH = Empty
        Case "vi"
            GPH = Empty
        Case "ei"
            GPH = Empty
        Case "lti"
            GPH = Empty
        End Select

Thanks guys!!!!

[DonkeyOte]

Perhaps you mean a Null, first change return type to Variant (from Double)

ElseIf FCCT <=1 Then
    Select Case LCase(ROT_type)
        Case "si", "vi", "ei", "lti"
            GPH = ""
    End Select
Else
    'remaining code
End If

though given you don't appear to cater for any other ROT_type you might as well dispense with that Select Case altogether and just use:

ElseIf FCCT <= 1 Then
    GPH = ""
Else
    'remaining code
End If

[DonkeyOte]

FWIW, you might get away with:

Function GPH(FC, CT, PSM, TMS, ROT_type As String) As Variant
    FCCT = FC / CT
    If FCCT >= 20 Then
        GPH = Application.Run("ROT_" & UCase(ROT_type), 20, 1, PSM, TMS)
    ElseIf FCCT <= 1 Then
        GPH = ""
    Else
        GPH = Application.Run("ROT_" & UCase(ROT_type), FC, CT, PSM, TMS)
    End If
End Function