Thanks everyone for the very quick responses!

Best Regards,

CalumMurdo Kennedy
www.taekwondo.freeserve.co.uk

-----Original Message-----
'------------------------------------------
Sub test()
Dim MyRange As Range
Dim Counter As Integer
'--------------------
Set MyRange = ActiveSheet.Range("A1:A50")
Counter = 1
For Each c In MyRange.Cells
If c.Value 0 Then
ActiveSheet.Names.Add _
Name:="Name" & Counter, _
RefersTo:="=" & c.Address
Counter = Counter + 1
End If
Next
End Sub
'-------------------------------------------------


---
Message posted from http://www.ExcelForum.com/

.