a button to shade and insert text

[sjak]

Hi,

I am trying to create a simply macro for a button on a spreadsheet I am currently working on.

When clicked I would like the following to occur:

1) Shade the current selected cell (Gray -25%)
2) Insert the text "Verified" (Arial 9 - centered in the cell)

Would anyone know how to create a macro for this?

Thanks,

sjak

[royUK]

Use the macro recorder to get the code

http://www.excel-it.com/record_macro.htm

Use something like

  With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .Value = "Verified"
        .Interior.ColorIndex = 15
    End With

[sjak]

Perfect! Thanks for the quick response.

sjak