U
usmc-r70
The Part 1 code Will 'UNPROTECT' 'SORT' 'PROTECT' only when the Part 2 code
is NOT installed.
When Part 2 code is installed into another module, the 'Step' routine
'UNPROTECTS' and 'SORTS' properly, but fails to 'PROTECT'.
No error is disdisplayed when the macro is run.
What could be the conflict?
'PART 1
Option Explicit
Sub RANKING_SORT()
ActiveSheet.Unprotect
Dim source As Range
With ActiveSheet
Set source = .Range(.Range("A11"), .Range("AR11").End(xlDown))
End With
source.Sort source.Range("V11"), xlAscending
ActiveSheet.Protect
End Sub
'PART 2
Function HasFormula(c As Range) As Boolean
HasFormula = c.HasFormula
End Function
is NOT installed.
When Part 2 code is installed into another module, the 'Step' routine
'UNPROTECTS' and 'SORTS' properly, but fails to 'PROTECT'.
No error is disdisplayed when the macro is run.
What could be the conflict?
'PART 1
Option Explicit
Sub RANKING_SORT()
ActiveSheet.Unprotect
Dim source As Range
With ActiveSheet
Set source = .Range(.Range("A11"), .Range("AR11").End(xlDown))
End With
source.Sort source.Range("V11"), xlAscending
ActiveSheet.Protect
End Sub
'PART 2
Function HasFormula(c As Range) As Boolean
HasFormula = c.HasFormula
End Function