I have a macro in which I have the following Lines :

Public Sub CommandButton1_Click()

Range("AF4").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Range("af3").Copy Selection

Calculate

End Sub


The cell AF4 contains the function :
=IF(LEFT($A3,1)="A",VLOOKUP($A3,STKD,AF$2,0),"---")

It is design to compare the field at column A to a database named "STKD" and
place the info on the rows below AF4.

When I execute this Macro, it does not calculate ( I chose Manual Update on
the options).

Can anyone Help ?

change
Calculate

to

Application.Calculate
or
Application.CalculateFull

--
Regards,
Tom Ogilvy


"ch" wrote in message
...
I have a macro in which I have the following Lines :

Public Sub CommandButton1_Click()

Range("AF4").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Range("af3").Copy Selection

Calculate

End Sub


The cell AF4 contains the function :
=IF(LEFT($A3,1)="A",VLOOKUP($A3,STKD,AF$2,0),"---")

It is design to compare the field at column A to a database named "STKD"
and
place the info on the rows below AF4.

When I execute this Macro, it does not calculate ( I chose Manual Update
on
the options).

Can anyone Help ?

Thanks Tom. It Worked !!!