Passing a fomula into a function

[Turtleman10]

Is there a way I can pass the formula i a cell into a function. Heres some backgoround of what I'm doing. I have a column that I want to perform a function where if another column has a formula. in it it will do one calculation if it dosent it will do another one.

[Richard Buttrey]

Hi,

Are you wanting a standard Excel function or a User Defined (VBA) function?

I don't know of any way of detecting whether a cell has a formula by just using Excel functions, but in VBA you can use the .HasFormula syntax.

If you want an Excel function solution are there any other cells, on which the cell you're trying to check for the presence of a formula is dependent? If so perhaps you could use the independent cell and check its value in an IF() test.

[Turtleman10]

This is my code the theing that is giveing me a problem is how I pull in what is in fomula in the cell not the Value in the cell.

Function StandardSetup(Column1 As String, Column2 As String, Column3 As String, Column4 as Range)

Dim StandardRate        As Long

Set conn = CreateObject("ADODB.Connection")
Set recS = CreateObject("ADODB.Recordset")
    
    'Connect to the data base
    
    With conn
        .Provider = "sqloledb"
        .ConnectionString = "Data Source=CRV43;Initial Catalog=M2MDATA01;User ID=SA;Password=sysadmin;"
        .Open
    End With
    
    'Get data from Database
    
   strQuery = "Select " & Column1 & " From dbo.LABOR Where " & Column2 & "='" & Column3 & "'"
    
    recS.Open strQuery, conn
    
    If Range(Column4).HasFormula Then
    
     StandardRate = recS!Srate
    
    StandardSetup = SSetup * StandardRate / 60
    
    Else
    
    StandardRate = recS0
    
    End If
    
    recS.Close
    conn.Close
    Set recS = Nothing
    Set conn = Nothing
End Function

[Turtleman10]

It would be a VBA function. I have it already written. My problem is that I have an entre row that this Function will be running in so for example I have this function in A5 through A20 I want it to run against column B in the adjacent cells so a 5 would go against B5.

[Turtleman10]

CAn anyone help