1、【第一步】 准备好需要插入返回目录按钮的工作簿，打开工作簿，需要确保工作簿有一个目录或者总表工作表，作为返回的对象。
2、【第二步】 点击“开发工具”选项卡，再单击“查看代码”按钮，或者直接按下组合键Alt+F11，来打开VB代码编辑器窗口。
3、【第三步】 再打开的VB代码编辑窗口中插入一个新模块，将以下代码复制到模块中，点击运行
Sub Button()
Dim MySht As Worksheet, MyButton As Button, ShtName As String
ShtName = "目录"'如果不是目录，则改为其他名称
For Each MySht In Worksheets
With MySht
If .Name <> ShtName Then
.Shapes(ShtName).Delete '
Set MyButton = .Buttons.Add(50, 10, 60, 30)
With MyButton
.Name = ShtName '对按钮命名
.Characters.Text = "返回" & ShtName '指定按钮的标题
.OnAction = "backto" '指定按钮对应的宏命令
End With
End If
End With
Next
Set MyButton = Nothing
End Sub
Sub backto()
Worksheets("目录").Activate
[a1].Select
End Sub
4、【第四步】 运行代码以后，最小化代码窗口，我们但会工作簿主界面，可以看到出了“目录”工作表，其他的工作表都已经自动插入了一个可以返回“目录”的按钮。
5、【第五步】 当然按钮是可以更改参数的，Buttons.Add(50, 10, 60, 30)方法中的4个参数分别代表的是按钮的Xpos、Ypos、按钮宽度和按钮高度，比如我们将参数设置为Buttons.Add(100, 100, 100, 50)。
6、【第六步】 更改参数以后，我们再一次运行代码，就可以看到工作表中的按钮位置和大小发生了变化，按钮变大了很多，同样也可以实现“返回目录”的功能。
