Put Cell Value in Mgsbox and answer with a Value in cell

[Hjemmet]

I have in my worksheet Lots of Formulae's

and the funkction ill need is this function.

when i Click on cell G7 then a Mgsboks should Show up
an then show result Value from Cell D6 on first line
and Value for cell D7 on second line


now the worst part of it all is Instead of "Yes , No , Cancel" on Msgbox is it possibel to change that so it is "1 , 2 , cancel"
so if i press on 1 then cell G7 is showing 1 or 2 if i press 2 ,cancel is Offcours cancel mgsbox

hope that was enough info

 

[Hjemmet]

i have figure the first part out but need the Buttonfunction

Private Sub Workbook_Open()
MsgBox "Player one" & vbCrLf & vbCrLf & Worksheets("Ark1").Range("A1") & vbCrLf & vbCrLf & "Player two " & vbCrLf & vbCrLf & Worksheets("Ark1").Range("A2"), vbExclamation + vbRetryCancel + vbDefaultButton2, _
"Choose Winner"
End Sub

 

[Hjemmet]

Never Mind with the Button Option I make a Userform instead