Sorted .... Perfect
![]()
Dim isMatch As Boolean Select Case True Case bnmoP_1.Value isMatch = IsDate(mvaEmployeeData(iEmployeeNo, iColumnNo)) Case bnmoP_2.Value isMatch = Not IsDate(mvaEmployeeData(iEmployeeNo, iColumnNo)) And Not (mvaEmployeeData(iEmployeeNo, iColumnNo)) = "" End Select
Bookmarks