Hey..
I'm having troubles to get info from my function, and back again to my sub.. whats wrong?
Code:
Public Sub Member()
Dim MemberID As Integer
Dim Member As Integer


Do
    MemberID = InputBox("write membernumber", "which member du you want?")
    
    TFMember= TjeckMember(MemberID)
    
    If TFMember= False Then
        MsgBox ("member not valid. try again.")
    End If
    
Loop Until Member = 1



End Sub


Public Function TjeckMember(MemberID As Integer) As Integer
Dim IDRange As Range
Dim ID As Variant


With ThisWorkbook.Worksheets("Members")

    Set IDRange = Range(Range("A2"), Range("A2").End(xlDown))
    
    For Each ID In IDRange
        If ID = MemberID Then
            TFMember= True
            
            Exit For
        Else
            TFMember = False
            
        End If
    Next ID
    
End With

End Function
Really hope you can help...

Bjede