Thread: Custom UDF
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Paige Paige is offline
external usenet poster
 
Posts: 270
Default Custom UDF

Thanks, JW; here is the code:

Option Explicit
Function SumColor(rColor As Range, rSumRange As Range)
'Sums cells based on a specified fill color
'Formula: =sumcolor(cell with desired color to sum,range to sum)

Application.Volatile True

Dim rCell As Range
Dim iCol As Integer
Dim vResult As Single

iCol = rColor.Interior.ColorIndex

For Each rCell In rSumRange
If rCell.Interior.ColorIndex = iCol Then
vResult = WorksheetFunction.Sum(rCell) + vResult
End If
Next rCell

SumColor = vResult
End Function

"JW" wrote:

It should work fine in your Personal.xls workbook. It could have to
do with the code in the UDF. If you are referencing something like
ThisWorkbook, then it is trying to apply the UDF to the Personal.xls
workbook, which would be incorrect. Could you post up the UDF code?

Paige wrote:
I have a UDF that have tried to add to my Personal.xls, so it will be
available as needed. (It works fine if I put the code in a normal workbook.)
It is in a regular module in my Personal.xls VBA project. After researching
thought it had to do with needing to add a reference to Personal.xls; when I
try to do that via Tools/References/Browse and select Personal.xls it adds
'VBAProject' to the list of references with a checkmark, but then says that
the name conflicts with an existing module, project or object library and
removes it. Am confused about what I'm doing wrong here. Any advice please?