Sub form()
A = ActiveCell.Value
A = A * 10
ActiveCell.Value = A
End Sub
Sub form()
A = ActiveCell.Value
A = A * 10
ActiveCell.Value = A
Columns(ActiveCell.Column).Select
Selection.NumberFormat = "000000000000"
End Sub
parsec said:Do you think that will work for this kind of formula?
=VLOOKUP(B1,Sheet2!A1:B16000,2,0)
Thank you for all your help
John
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet2!R1C1:R16000C2,2,0)"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC2,Sheet2!R1C1:R16000C2,2,0)"
Right mouse over a toolbar and select customize, select the Commands tab, in categories select Macros, click and drag the Custon button onto your toolbar, then right mouse over it and select Assign Macro. (you can also change the icon and name.kattharris said:This might sound totally idiotic, but how do you add the button to the toolbar? Do you want to use a command button or just a regular button?
Katt