macro :Cant find project or library

**kamikizzy** · 05-30-2011, 02:22 PM

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

**snb** · 05-30-2011, 02:50 PM

Please use code tags !

sub snb()
  with Sheets(1).columns(2).specialcells(2).offset(,1)
    .font.name="wingdings"
    .value=chr(252)
  end with
End Sub

**kamikizzy** · 05-30-2011, 03:10 PM

Thanks for your input I have managed to do a workaround

it my not be pretty as I am still learning I managed to get it to work like this.
This is not my code it was provided by a good member on here and this site has been of immense help and i look forward to learning more.

Sub Autotick()
  Dim OneCell As Range
    For Each OneCell In Range(Range("A53:A69"), Range("A" & Rows.Count).End(xlUp))
       If Not IsEmpty(OneCell) Then
          OneCell.Offset(0, 1).Font.Name = "Wingdings"
          OneCell.Offset(0, 1).Value = "ü"
       End If
    Next OneCell
End Sub

Kindest Regards Alex