Formula to VB Code

I have a cell formula =IF(J61>500,500,J61*-1) that I want to put into a macro. How would this formula need to be typed in a line of code.

ACtivecell.Formula = "=IF(J61>500,500,J61*-1)"

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"icetrey" <icetrey.2bjhbc_1153894804.1878@excelforum-nospam.com> wrote in
message news:icetrey.2bjhbc_1153894804.1878@excelforum-nospam.com...
>
> I have a cell formula -=IF(J61>500,500,J61*-1)- that I want to put
> into a macro. How would this formula need to be typed in a line of
> code.
>
>
> --
> icetrey
> ------------------------------------------------------------------------
> icetrey's Profile:
http://www.excelforum.com/member.php...o&userid=20329
> View this thread: http://www.excelforum.com/showthread...hreadid=565031
>

Thanks. That worked great.

Or do you mean:
With ActiveCell
If Range("J61").Value>500 Then
.Value=500
Else
.Value =Range("J61").Value-1
End If
End With

NickHK

"icetrey" <icetrey.2bjhbc_1153894804.1878@excelforum-nospam.com> wrote in
message news:icetrey.2bjhbc_1153894804.1878@excelforum-nospam.com...
>
> I have a cell formula -=IF(J61>500,500,J61*-1)- that I want to put
> into a macro. How would this formula need to be typed in a line of
> code.
>
>
> --
> icetrey
> ------------------------------------------------------------------------
> icetrey's Profile:
http://www.excelforum.com/member.php...o&userid=20329
> View this thread: http://www.excelforum.com/showthread...hreadid=565031
>