F
Frustrated
Sub Sort().......
Dim rRge4 As Range
Dim rRge5 As Range
Dim rRge6 As Range
Set rRge4 = Range("A4:EE500")
Set rRge5 = Range("B7:K46")
Set rRge6 = Range("A1:K47")
Sheets("Data").Select
ActiveSheet.Unprotect
rRge4.Select
Selection.Sort Key1:=Range("Ba4"),
Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range("A4").Select
ActiveSheet.Protect
End Sub
I didn't post the entire code but this is the very first
of it and it hangs on the step "rRge4.Select" Can someone
point out why??
Can provide more info if necessary.
TIA
Dim rRge4 As Range
Dim rRge5 As Range
Dim rRge6 As Range
Set rRge4 = Range("A4:EE500")
Set rRge5 = Range("B7:K46")
Set rRge6 = Range("A1:K47")
Sheets("Data").Select
ActiveSheet.Unprotect
rRge4.Select
Selection.Sort Key1:=Range("Ba4"),
Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom
Range("A4").Select
ActiveSheet.Protect
End Sub
I didn't post the entire code but this is the very first
of it and it hangs on the step "rRge4.Select" Can someone
point out why??
Can provide more info if necessary.
TIA