MACRO FUNCTION conflict with other macro's

M

MrDave

hi, don't know much about macro's, but the following (with slight
modification), seemed to work. the problem is that while this is installed,
example of next item below stops in the middle..

- to find if text exists in a formula: installed in a separate module

Option Explicit
Function FC(rng As Range, myStr As String) As Boolean
Set rng = rng.Cells(1)
FC = False
If rng.HasFormula Then
FC = CBool(InStr(1, rng.Formula, myStr, vbTextCompare) > 0)
End If
End Function 'for: =FC(a1,"abc")


~~~~~~~~

example of what stops working:

If Range(testB1).Value = "AA" Then
Rows(hidaa).Select
Selection.EntireRow.Hidden = True
Range(hidrows).Select 'this portion does not execute from here down
Selection.ClearContents
Range(testB1).Select
Selection.ClearContents
End If


If have even the idea right, can I get this modified to insert a function
within a sub / under an option explicit, or does the top item need to be
modified to not conflict with the worksheet macro's?

NOTE: removing the 1st item allows the rest to work again. thanks
 
P

Per Jessen

Hi

Try to step through the code and see if the UDF is called (recalculated due
to a change in one of the variables).

Hopes this helps.
....
Per
 

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