Dear Mangesh

I modified your code so that it counts the number of items in Cell A
But it displayed a mitmatch type error

Dim j As Integer

j = 0

Range("A1").Select

For i = 1 To Range(Selection, Selection.End(xlDown)).Count
MsgBox Cells(i, 1)
j = j + 1

Next

MsgBox "Total is " + j
End Su

--
ajitpalsingh20
-----------------------------------------------------------------------
ajitpalsingh200's Profile: http://www.excelforum.com/member.php...fo&userid=1615
View this thread: http://www.excelforum.com/showthread.php?threadid=27586