Runtime error 13 type mismatch

[cicada]

Hi all am trying to run the following,

Private Sub Worksheet_Calculate()
With ThisWorkbook.Sheets("HILO_TURBO")
If Len(.Range("J7").Value) = 6 And (.Range("E40").Value > 0) Then
.Parent.Sheets("sheet1").Range("D3:D6").Value = .Range("J19:J22").Value
End If
End With
'...
End Sub

and am getting a runtime error type mismatch it is showing up on the If LEN line. this is running with a dde link. Any help appreciated.

Thanks
Dan

 

[devil_apps]

Value in Cell "J7" OR "E40" is non-numeric.

Please check with the data you are trying.