Multiple Cell Function on Cell Change

[twothings]

Hello

I am have a sheet that I enter large numbers eg 500,000 etc and to reduce typing zeros, I would like cells E9, E37 and E40 to be multiplied by 1000 on cell change. I can implement this with a single sub but when adding in additional subs I get an error. I have looked extensively to fix this and done much testing but require your assistance please. Can the below all be combined in to a single sub?

Sub Worksheet_Change(ByVal Purchase As Range)
        Application.EnableEvents = False
        If Purchase.Address = "$E$9" Then
        Purchase = Purchase * 1000
        Application.EnableEvents = True
    End If
End Sub
Sub Worksheet_Change(ByVal LotA As Range)
        Application.EnableEvents = False
        If LotA.Address = "$E$37" Then
        LotA = LotA * 1000
        Application.EnableEvents = True
    End If
End Sub
Sub Worksheet_Change(ByVal LotB As Range)
        Application.EnableEvents = False
        If LotB.Address = "$E$40" Then
        LotB = LotB * 1000
        Application.EnableEvents = True
    End If
End Sub

Thanks

 

[Peter_SSs]

I suggest that you update your Account details (or click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

Give this a try

Sub Worksheet_Change(ByVal Purchase As Range)
    If InStr(1, ",$E$9,$E$37,$E$40,", "," & Purchase.Address & ",") > 0 Then
      Application.EnableEvents = False
      Purchase = Purchase * 1000
      Application.EnableEvents = True
    End If
End Sub

 

[twothings]

Thank you Peter, that's working perfect; and I appreciate the tip for updating my profile.

 

[Peter_SSs]

You're welcome. Glad it helped.
.. and thanks for updating your profile.