Custom UDF

P

Paige

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?
 
J

JW

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?
 
P

Paige

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top