Performing Long formula in VBA (2010)

Hi, I'm trying to create a macro in VBA to output to Cell(BD24). I see code going something like this.

If Cell(L40) = "1d6" then x = 1 , y = 6
If Cell(L40) = "1d4" then x = 1 , y = 4
If Cell(L40) = "1d20" then x = 1 , y = 20
(and so on for 1d2, 1d8, 1d10, 1d12)

i = RANDBETWEEN(x,y)

If i = y , then Change cell color to green
If i = x , then Change cell color to red
i = i + Cell(G39)
Output to Cell(BD24)

(I will be posting another thread trying to do a similar function if a certain cell colour is red or green... unless it's answered here)
Thanks ahead for all the help :D

Welcome to the forum!

I had one question in the comment for "i" at the end. Was that the value for BD24?

Copy this to a Module:

Please Login or Register  to view this content.

Hey, yeah that was very helpful. I think i'm gonna have to adjust it to a few other things but you answered a lot of questions. The last line about " i " was the modifier for the roll. I through that in w/o describing it, sorry about that. Thanks again for all the help, I should be posting more things here in the near future