getting #NAME? errors with functions

[DougGordon]

Hi

I am fairly new to VBA so excuse my newbee question. Ihave a function that works on one notebook in Excel 2007 that doesn't seem to work on another machine running the same SOE.

The function is:

Public Function colorfont(ActiveCell) As Double
colorfont = ActiveCell.Font.Color
End Function

When I call this in Excel as =Colorfont(A1) I get an error "#NAME?" - but I have tried to resolve this and can't.

I know this is probably what is covered the most elemenary VBA course, but I just can't get past this.

Thanks for you time.

Doug

 

[SkipVought]

hi,

Not ActiveCell!

Public Function colorfont(rng as range) As Double
    colorfont = rng.Font.Color
End Function

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]