Thread: format hyperlink to run macro

i need some help with the macro below from stop and question mark on;
i can't make the cell format that has start written to be visible thanks a lot

Private Sub Workbook_Open()

  Dim myRng As Range
  Dim myCell As Range
  Dim curWks As Worksheet
  Dim myRect As Shape
  Dim iCol As Integer
  iCol = 1  '1 columns (or in this case one cell)

  Set curWks = ActiveSheet

  With curWks
    'the cell you want to click on
    Set myRng = .Range("a1").Resize(1, iCol)
    For Each myCell In myRng.Cells
        With myCell
          Set myRect = .Parent.Shapes.AddShape _
              (Type:=msoShapeRectangle, _
              Top:=.Top, Height:=.Height, _
              Width:=.Width, Left:=.Left)
        End With
        With myRect
' change the macro name accordingly
          .OnAction = "b"
         ' .Fill.Visible = False
          .Line.Visible = False
          Stop
          
  '???????????????????????????????????????????????????????????
  Cells(1, 1).Select
    ActiveCell.FormulaR1C1 = "start"
    
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Font.Bold = True
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
        End With
    Next myCell
  End With
  
End Sub

Hello ilkamalo,

Can you provide a description of how you want this cell formatted? The code is rather confusing.