Hi,
I have a macro that sometimes hangs up and sometimes not.
This is what I'm using:-
Application.ScreenUpdating = False
Sheets("Analysis").Select
Range("C2").Select
Selection.Copy
Sheets("Report").Select
myUnprotect 'Disable Report worksheet protection
Sheets("Report").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False 'IT HANGS UP HERE
Sheets("Analysis").Select
Range("E2").Select
Selection.Copy
Sheets("Report").Select
Range("B2").Select 'Strength
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
Sheets("Report").Select
Range("A2:M2").Select
Selection.Copy
If Range("A3") = 0 Then 'it is empty
Range("A3:M3").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=False, Transpose:=False
End If
If Range("A3") <> 0 Then
' Application.Goto Sh.Range("A1"), True 'won't
work if I include this line
Selection.End(xlDown).Activate 'IT HANGS UP HERE TOO
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:= False, Transpose:=False
End If
Range("A2:M2").Select
Selection.ClearContents 'and I lose the formats set earlier!
Range("A2").Select
++++++
(repetitons of copy / paste)
+++++
Assistance greatfully accepted.
Jeff
Bookmarks