An excel card game

[asgsoft]

I am making a card game as part of my school work using excel vba macro. I am stuck with the stick part when the user presses stick to end his go and let the computer has its.

I have this but i don't know whats wrong:

Sub DealerStick3()
 
dealer = Range("F22").Value
setdef = 17
 
If dealer < setdef Then
stick3
Else
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
End
End If
End Sub
 
Sub stick3()
dealer = Range("F22").Value
setdef = 17
 
dealer3:
    Calculate
    flagcell = Range("H4").Value
    If Range(flagcell).Value = 1 Then
    GoTo dealer3:
    End If
 
    Range("C3:F3").Select
    Selection.Copy
    Range(flagcell).Value = 1
    Range("C19").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Application.CutCopyMode = False
Range("F22").Select
dealer = Range("F22").Value
DealerStick4
    ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
End Sub
Sub DealerStick4()
 
dealer = Range("F22").Value
setdef = 17
 
If dealer < setdef Then
stick4
Else
ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
End
End If
End Sub
 
Sub stick4()
dealer = Range("F22").Value
setdef = 17
dealer4:
    Calculate
    flagcell = Range("H4").Value
    If Range(flagcell).Value = 1 Then
    GoTo dealer4:
    End If
 
    Range("C3:F3").Select
    Selection.Copy
    Range(flagcell).Value = 1
    Range("C20").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Application.CutCopyMode = False
Range("F22").Select
dealer = Range("F22").Value
DealerStick5
    ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
End Sub
Sub DealerStick5()
dealer5:
    Calculate
    flagcell = Range("H4").Value
    If Range(flagcell).Value = 1 Then
    GoTo dealer5:
    End If
    
 
    Range("C3:F3").Select
    Selection.Copy
    Range(flagcell).Value = 1
    Range("C21").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    
    Application.CutCopyMode = False
Range("F22").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-5]C:R[-1]C)"
    End
End Sub

[asgsoft]

can't anyone help me, all i need is someon eto check it throgh as i can't find my mistake

[malik641]

What errors are you getting?
Which "stick" part? All your macros have "stick" in them And there are no _Click events...so which macro is it???

Maybe a posted workbook would help

[malik641]

Oh yeah, and I just quickly looked at your code and noticed that your "DealerStick3" and "DealerStick4" have an unnecessary extra "End" in it.

And you don't have to "Select" anything to do what you want to do. Your code will run more efficient and more quickly that way