[RESOLVED] Checking the length of the letterin excel

[india123]

i am checking the legth of the cell has 5 do someting and greater than 5 it displays the message and stops the macro the macro shows here:
but it gives object error code
but i have in cell 4 e has 5 letter


if Len(aSheet.Cells(4,"e",5)) Then
MyScreen.Area(1,10,1,14).Value = aSheet.Cells(4, "e").Value
ElseIf Len(aSheet.Cells(4, "e").value) > 5 Then
MsgBox ("Corp should be 5 letters in Excel sheet ")

[Hack]

What is the exact error and on what line does it occur?

[india123]

Len(aSheet.Cells(4,"e",5))
OBJECT code error
but in excel it is 5 letters only

[Siddharth Rout]

Is this what you are trying?

If Len(Trim(aSheet.Cells(4, 4).Value)) < 5 Then
    'your code
ElseIf Len(Trim(aSheet.Cells(4, 4).Value)) > 5 Then
    MsgBox ("Corp should be 5 letters in Excel sheet ")
End If

[india123]

yes i tried the same thing but = 5

[india123]

what is actually trim will do

[westconn1]

trim remove space/s at beginning and end of string

[Siddharth Rout]

yes i tried the same thing but = 5

Sorry i don't understand...

Is this what you want?

'if less than 5
If Len(Trim(aSheet.Cells(4, 4).Value)) < 5 Then
    'your code
 
'if greater than 5
ElseIf Len(Trim(aSheet.Cells(4, 4).Value)) > 5 Then
    MsgBox ("Corp should be 5 letters in Excel sheet ")
 
'if equal to 5
ElseIf Len(Trim(aSheet.Cells(4, 4).Value)) = 5 Then
    'your code
End If