Heat Map error

[MrsLisa]

Hello everyone. I'm wondering if someone could help me understand why I'm getting an error when I hit the paint map button. I'm sure all objects are labeled correctly so I can't figure it out. Thanks in advance for looking it over.

 

[Hui]

Please see revised code below

Sub Paint()
  Dim i As Integer
  For i = 1 To 50
    'First, paint the state shapes
    Range("actorder").Value = i
    ActiveSheet.Shapes(Range("actstate").Value).Fill.ForeColor.RGB = _
    Range(Range("actcolorcode").Value).Interior.Color

    ActiveSheet.Shapes(Range("acttext").Value).Select
    With Selection
      'Second, update the text boxes
      .Text = Range("acttextvalue").Value
     
      '(Optional) Format the text boxes
      .ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
      .ShapeRange.Fill.Transparency = 0.3
      .ShapeRange.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
      .ShapeRange.TextFrame2.TextRange.Font.Shadow.Visible = False
      .ShapeRange.TextFrame2.MarginLeft = 2.5
      .ShapeRange.TextFrame2.MarginRight = 2.5
    End With
  Next i

End Sub

 

[MrsLisa]

Thank you very much Hui!