New to VBA - Where's my mistake with this small bit of code?

[OpieWinston]

Good Day All

I've only recently (a couple weeks) started to slowly teach myself VBA via an online step by step guide I've found, and now I'm trying to write my first bit of code from scratch. I'm trying to make an "IF" code, and it keeps giving me an the response to the "ELSE" part of the code, despite the condition being true. So where am I going wrong with this?

Set up:

Cell K5 = 15,000,000
Cell K7 = 12,500,000
Cell K8 = (K7/K5)-1

Cell K8 Result = -16.7%

Code:

Option Explicit
Sub Company_Wide_Sales_Growth()

    'Trying to make cell K11 show -37.12% if Cell K8 is between -16.1% and -18%

    Dim change As Integer
    Dim modifier As Integer
    
    change = Cells(8, "K")
    
    If change < -0.161 And change > -0.18 Then
        modifier = -0.3712
        Cells(11, "K").Value = modifier
        
    Else
    
        Cells(11, "K").Value = "Why Aren't You Doing What I Want?!"
        
    End If
 

End Sub

Thanks for your help!

[xlnitwit]

Hi,

You've declared change as an Integer, so it can only be a whole number, which will never be between your two decimal values. You should use Double instead.

[OpieWinston]

Holy cats! I figured it out right after posting, tried it, and it worked! Woot Woot! Came back here to amend the post and saw your reply.

Thanks for the answer bud! I figured it out using Single instead of Double. I believe you that I should use double, but why double vs single when looking to round to the first decimal? I thought the big difference between single and double was how many decimal places you could have. Is there more to it then that?

Thanks again for the help!

[xlnitwit]

Excel uses doubles internally, so a Single is an unnecessary conversion, but it won't make a difference at that level of precision.

[OpieWinston]

So general rule is use doubles for everything then? Got it. Thanks thanks thanks! I'm sure I'll be back with more problems in the future as I try to find more reasons to write VBA! This is so awesome...