Function ValidatePAN(panentry As String) As Boolean
'ValidatePAN = True
'pan = Range("PAN").Value
If Len(panentry) > 0 Then
If Not IsNumeric(Mid(panentry, 6, 4)) Then
ValidatePAN = False
Exit Function
End If
If Not CheckAtoZ(Mid(panentry, 1, 1)) Then
ValidatePAN = False
Exit Function
End If
If Not CheckAtoZ(Mid(panentry, 2, 1)) Then
ValidatePAN = False
Exit Function
End If
If Not CheckAtoZ(Mid(panentry, 3, 1)) Then
ValidatePAN = False
Exit Function
End If
If Not CheckAtoZ(Mid(panentry, 4, 1)) Then
ValidatePAN = False
Exit Function
End If
If Not CheckAtoZ(Mid(panentry, 5, 1)) Then
ValidatePAN = False
Exit Function
End If
If Not CheckAtoZ(Mid(panentry, 10, 1)) Then
ValidatePAN = False
Exit Function
End If
End If
End Function
To check the letters in PAN falls in A-Z
Function CheckAtoZ(chr1) As Boolean
CheckAtoZ = True
If ((Asc(chr1) < 65) Or (Asc(chr1) > 90)) Then
CheckAtoZ = False
End If
End Function