A
ajitpalsingh200
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
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