Stack overflow - fejl i kode?

Hvad er problemet i denne kode, den forårsager stack overflow:

Sub pension_af_tillæg()
  Dim forhRow As Range
     
  For Each forhRow In Range("forhandlingsreferat_tillæg").Rows
     
      If forhRow.Cells(1).Value > 0 Then
        forhRow.Offset(0, 1).Value = "x"
      Else
        forhRow.Offset(0, 1).Value = ""
      End If
  Next forhRow
End Sub