I am running the code below, the application.screenupdating = false is not running properly. The screen is updating/flickering back and forth as it goes from worksheet to worksheet. Any ideas why? I have tried stepping through the code one line at a time and when I "hover" over the line, it tells me screenupdating still = true
Thanks
Joe
CODE
Public Sub Calculate_cb_Click()
Dim a, b, c As String
Dim x, y, z As Integer
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("Main").Select
a = ActiveWorkbook.Worksheets("Main").TextBox1.Text
ActiveWorkbook.Worksheets("Main").Range("N1").Value = a
If ActiveWorkbook.Worksheets("Main").Range("N4").Value = "True" Then
ActiveWorkbook.Worksheets("Caesar").Select
ActiveWorkbook.Worksheets("Caesar").Range("CaesarCode").Value = a
ActiveWorkbook.Worksheets("Caesar").Range("CipheredCaesar").Select
Selection.Copy
ActiveWorkbook.Worksheets("Main").Select
ActiveWorkbook.Worksheets("Main").Range("Ciphered").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ElseIf ActiveWorkbook.Worksheets("Main").Range("O4").Value = "True" Then
ActiveWorkbook.Worksheets("Vigener").Select
ActiveWorkbook.Worksheets("Vigener").Range("Codeword1").Formula = "=Codeword"
ActiveWorkbook.Worksheets("Vigener").Range("VigenerCode").Value = a
ActiveWorkbook.Worksheets("Vigener").Range("CipherVigener").Select
Selection.Copy
ActiveWorkbook.Worksheets("Main").Select
ActiveWorkbook.Worksheets("Main").Range("Ciphered").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Else
MsgBox ("You must select the type of shift.")
End If
ActiveWorkbook.Worksheets("Main").Select
Application.ScreenUpdating = True
End Sub
| 