Microsoft Excel stops responding on Macro run

[egrospe]

Hello,

I have a userform that transfers a bunch of data to a sheet on a button click. My codes used to work perfectly before and recently, it's been giving me troubles on button click. Microsoft consistently stops responding.

For some odd reason, MS Excel Stops responding right when it's time to transfer the value entered in "txtgroupID" textbox to the sheet (see red text below). When I disable this line and try to run it, everything works fine. What am I missing?

Private Sub cmdsubmit_Click()
Sheets("Form").Unprotect Password:="password"

'CONTRACT INFO
Sheets("Form").Range("H4") = txtOPCProjectName.Value
Sheets("Email").Range("C1") = txtOPCProjectName.Value
Sheets("Form").Range("H5") = txtOPCProjectNumber.Value
Sheets("Email").Range("C2") = txtOPCProjectNumber.Value
Sheets("Form").Range("N9") = txtOPCProjectNumber.Value 
Sheets("Form").Range("P5") = txtID.Value
[COLOR=#ff0000][B]Sheets("Form").Range("H6") = txtGroupID.Value [/B][/COLOR]
Sheets("Email").Range("C3") = txtGroupID.Value 
    
Sheets("Form").Range("H7") = cmbReviewer.Value
    Sheets("Email").Range("C4") = cmbReviewer.Value
Sheets("Form").Range("H8") = txtDateReviewed.Value
    Sheets("Email").Range("C5") = txtDateReviewed.Value
Sheets("Form").Range("H9") = txtCCN.Value
    Sheets("Email").Range("C6") = txtCCN.Value
Sheets("Form").Range("H10") = cmbCT.Value
    Sheets("Email").Range("C7") = cmbCT.Value
Sheets("Form").Range("H11") = cmbCTN.Value
    Sheets("Email").Range("C8") = cmbCTN.Value
Sheets("Form").Range("H12") = cmbIT.Value
    Sheets("Email").Range("C9") = cmbIT.Value
Sheets("Form").Range("H13") = txtPN.Value
    Sheets("Email").Range("C10") = txtPN.Value
Sheets("Form").Range("H14") = txtECN.Value
    Sheets("Email").Range("C11") = txtECN.Value

End Sub

Thanks in advance!!

Emmanuel

 

[SQUIDD]

hi

does H6 have any formula that will be updated when the new value arrives?
just wondering if the sheet calculation is causing you a slow down.

dave

 

[SQUIDD]

have you tried

Application.Calculation = xlCalculateManual

'''''''''''''''code

Application.Calculation = xlCalculateAutomatic

out of interest, i have used this allot.

Dave

 

[egrospe]

hi

does H6 have any formula that will be updated when the new value arrives?
just wondering if the sheet calculation is causing you a slow down.

dave

Hi Squidd,

I only have one cell that combines cells H5 and H6. Other than that, cell H6 is not updating any formulas.

 

[SQUIDD]

Hi

ok, its very strange, the code itself is not really doing much to go wrong

have you changed anything recently??

are any of the previous entries updaing formula

did you try the calculation manual automatic thing to iron out calculation issues.

Dave