Hi, I wonder whether someone may be able to help me please.

Using a link I found here: http://www.get-digital-help.com/2012...in-a-workbook/ I've put together the following code which adds a link on a 'Dashboard' page for each given sheet within my workbook.

Sub CreateLinksToAllSheets()
    
    Dim cell As Range
    Dim Dash As Worksheet
    Dim sh As Worksheet
    
    Sheets("Dashboard").Select
    Range("B7").Select
        
        For Each sh In ActiveWorkbook.Worksheets
            Select Case sh.Name
            Case "Launch Sheet", "Dashboard"
            Case Else
                ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & sh.Name & "'" & "!A1", TextToDisplay:=sh.Name
                ActiveCell.Offset(1, 0).Select
            End Select
            Next sh
    End Sub
The code works absolutely fine, but I'm wanting to adapt this a little, but I'm a little unsure how to proceed.

Rather than a hyperlink being dispalyed as the link to each page, I'd like to display a custom button instead.

I've recorded the creation of the button (below) but I'm a little unsure how they can be incorporated with each other, if indeed it can be done.

 Sub Macro1()

    ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 321#, 274.5, 72#, _
        72#).Select
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 44
    Selection.ShapeRange.Fill.OneColorGradient msoGradientHorizontal, 1, 0.23
End Sub
I just wondered whether someone may be able to loo at this please and offer some guidance on how I may go about achieving this.

Many thanks and kind regards