View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
cosmo37 cosmo37 is offline
external usenet poster
 
Posts: 3
Default macro to stop numbering when a letter is found in cell

i need filtered files to be numbered... with a twist...
i need it to stop numbering if it incounters a letter or * in the numbering
row.
end user needs EASY, so
i have a macro that i found here, (although i cant seem to find it again...)
love it but cant get it to stop

Sub numbervisible()
lr = Cells(Rows.Count, 1).End(xlUp).Row
Set myrng = Range("a2:a" & lr).SpecialCells(xlCellTypeVisible)
counter = 1
For Each c In myrng
c.Value = counter
counter = counter + 1
Next c
End Sub

i can put this code or one simular in the personal.xls so all end user needs
to do is run it...