macro :Cant find project or library

I am trying to run this macro in Excel 2007 and it stops at the Chr$ This works in excel 2010 but I need to get it to work in 2007 version

can anyone point me in the right direction?

Sub Macro1()
  Dim OneCell As Range
    For Each OneCell In Range(Range("B1"), Range("B" & Rows.Count).End(xlUp))
       If Not IsEmpty(OneCell) Then
          OneCell.Offset(0, 1).Font.Name = "Wingdings"
          OneCell.Offset(0, 1).Value = Chr$(252)
       End If
    Next OneCell
End Sub

Kindest regards Alex