Run-time error 6: Overflow on a Mac but not on Windows

[ResearchGuyDerrick]

I've written a macro that begins by asking the user a yes/no question (see below). I have no problem running it on my Windows machine, but my boss is on a Mac and receives a Run-time error 6: Overflow error message. When he debugs, it points him to the If AnswerYes = vbYes Then line. The error occurs whether he selects Yes or No in the dialog box. Is there a fix to this issue? We tried installing available Excel software updates but that did not fix it. Thanks in advance!

Dim AnswerYes As String
Dim AnswerNo As String

 AnswerYes = MsgBox("Do you want to net some values into an All Other grouping?", vbQuestion + vbYesNo, "User Repsonse")

 If AnswerYes = vbYes Then
   Dim OtherThreshold As Single
   OtherThreshold = InputBox("What's the maximum loyalty you want to include in the All Other grouping? Enter number as a decimal.", "Maximum Loyalty", 0.35)
 End If

 

[dmt32]

Hi
welcome to forum

I know nothing about Mac but see if this update to your code resolves the issue

    Dim Response            As VbMsgBoxResult
    Dim OtherThreshold      As Variant
   
    Response = MsgBox("Do you want To net some values into an All Other grouping?", vbQuestion + vbYesNo, "User Repsonse")
   
    If Response = vbYes Then
       
        Do
            OtherThreshold = InputBox("What's the maximum loyalty you want to include in the All Other grouping? Enter number as a decimal.", "Maximum Loyalty", 0.35)
            'cancel pressed
            If StrPtr(OtherThreshold) = 0 Then Exit Sub
        Loop Until IsNumeric(OtherThreshold)
       
        OtherThreshold = CSng(OtherThreshold)
       
        'rest of code for yes
       
        Else
       
        'code for no
       
    End If

If not, perhaps another here can offer further guidance

Dave