How do I make a cell into a button that runs a macro?

[rookie37]

I will have 12 tabs. I want to have 12 buttons that will turn on and off these tabs

Example

Sub tab1()
'
' tab1 Macro
'

'
    Sheets("tab1").Select
    Sheets("Sheet3").Visible = True
    Sheets("tab2").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("tab3").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("tab4").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("tab5").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("tab6").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("tab7").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("tab8").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("tab9").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("tab10").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("tab11").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("tab12").Select
    ActiveWindow.SelectedSheets.Visible = False
End Sub

By the way, I love this forum. I'm learning a lot. Only yesterday I didn't know how to do anything except record keystrokes. Now I'm writing code.

[scottwhittaker2333]

As far as I know you can't actually turn a cell into a button, However you can add command buttons to your spreadsheet and then assign codes to them. If you are using excel 2007 its under the developer tab, click insert and choose a button type from form controls. If you are using 97 to 03 then you will have to add it to your toolbar. If I remember correctly then itsinsert tools and command or something like that.

[pike]

maybe use..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub

or a clear (no colour) shape over the cell with the macro assigned to it