More Private Sub dont work together

[cenky]

Hello I have two Private Sub codes (one for ComboBox and one for rightclick) working properly sepatately. But when they are together, excel publish Run Time error 1004 (it cant copy simple cell and paste it). Will somebody help me?
Here is the code:

Private Sub ComboBox1_Change()

Select Case Range("D45").Value
Case "1dosp"
Úvěr_1
Case "2dosp"
Úvěr_2

Case Else
Exit Sub

End Select

End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
RightClick4
Cancel = True
End Sub

 

[cenky]

Does this work for you?

Sub Úver_2()
    With Sheets("Úvery_2")
        .Range("D43").Copy .Range("D46")
    End With
    Application.CutCopyMode = False
End Sub

Now it works! I asked a friend and he made a little change in the code:
"Sub Úvěr_1()
Sheets("Úvěry").Activate
Application.CutCopyMode = True
Range("D46").Value = Range("D42").Value
Range("D6").Select
Application.CutCopyMode = False
End Sub
Sub Úvěr_2()
Sheets("Úvěry_2").Activate
Application.CutCopyMode = True
Range("D46").Value = Range("D43").Value
Range("D6").Select
Application.CutCopyMode = False"

Anyway, thanks for the effort!