I am getting type mismatch error Run time error'13

[tiger123]

Private Sub CommandButton1_Click()
Dim LR As Long
    Dim Dash As Long, _
        Whole As Double
   ' Dim pi ', WorkSheets, Range
    WorkSheets("Sheet3").Select
LR = Sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row
    For r = 2 To LR
      s = Cells(r, 3)
      arr = Split(s, ",")
      For i = LBound(arr) To UBound(arr)
        Whole = 0
        p = InStr(arr(i), " IN")
        If p > 0 Then


           ' dostuff
       End If
        Dash = InStr(frac, "-")
        If Dash > 0 Then
            Whole = Left(frac, Dash - 1)
            frac = Mid(frac, Dash + 1, Len(frac))
        End If
        af = Right(arr(i), Len(arr(i)) - p + 1)
         evfrac = Whole + Left(CStr(Evaluate(frac)), 5)  ---> error in this  line
      '  evfrac = Whole + Format(Evaluate(frac), "0.###")
        ss = ss & evfrac & af & ", "
      Next i
      Cells(r, 4) = Left(ss, Len(ss) - 2)
      ss = ""
    Next r
End Sub

 

[sktneer]

Do not crosspost your question on multiple forums without including links here to the other threads on other forums.

Run time error 13 Type mismatch error

 

[RoryA]

@sktneer,

Please note rule 16 regarding 'back seat moderation'. Thanks.

 

[sktneer]

@sktneer,

Please note rule 16 regarding 'back seat moderation'. Thanks.

Oh really sorry about that. I was not aware of it. Will certainly take care in future. Thanks.

 

[RoryA]

That's OK - I know it gets confusing with all forums having slightly different ways of doing things.

 

[sktneer]

Yes. That is very correct. As you can see I have only 30 posts here so far and it just happened unknowingly.