Sub RefreshPitcherList()
' An Advanced Filter
' RefreshPitcherList Macro
' Macro recorded 11/12/2003 by raseysm
Range("DataArea1").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:= _
Range("Crit4"), CopyToRange:=Range("Head4"),
Unique:=False
End Sub
Function
smrCellColorNumber(rngCell As Range) As Long
'Return the ColorIndex of the fill of the first cell
of a referenced range.
smrCellColorNumber = rngCell.Range("A1").Interior.ColorIndex
End Function