I've got a macro that runs fine if cells are not hidden & considerably slower when they are hidden. In normal operation I would like the cells that are the source of copying & destination of pasting to be hidden. The only cells that are not hidden are a1:d6. The overall application slows a bit, but this macro is the worst. Any ideas on how to speed it up? I appreciate any help. Here's the code:
Sub clicksave2()
ActiveSheet.unprotect
Application.ScreenUpdating = False
If Range("a63") = 1 Then
Range("a63") = 2
Range("b38:u38").Select
Selection.Copy
Range("b63:u63").Select
Selection.PasteSpecial Paste:=xlValues
Range("a1").Select
Application.CutCopyMode = False
Else
Range("a63") = 1
Range("b63:u63").Select
Selection.ClearContents
Range("a1").Select
Application.CutCopyMode = False
End If
Application.ScreenUpdating = True
ActiveSheet.protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Bookmarks