Public Function EnStatus(Reg) R = "NA" If Reg < 6 Then R = "LH" ElseIf Reg >= 6 And Reg < 9 Then R = "HT" ElseIf Reg >= 9 And Reg < 12 Then R = "TT" ElseIf Reg >= 12 Then R = "FT" Else R = "NA" End If EnStatus = R End Function