Could you help me with the VB code that would perform the following?

Count the number of cells that have text in a range that goes from the
active cell to .End(xlRight)

Thank you!

Filo - give this a try. It counts the total number of cells and then
subtracts the number of cells that contain numbers.

Sub CountText()

Dim Count As Integer

Count = Range(ActiveCell, ActiveCell.End(xlToRight)).Cells.Count
Count = Count - WorksheetFunction.Count(Range(ActiveCell,
ActiveCell.End(xlToRight)))
MsgBox "There are " & Count & " cells containing text."

End Sub

-Cory

"Filo" wrote:

Could you help me with the VB code that would perform the following?

Count the number of cells that have text in a range that goes from the
active cell to .End(xlRight)

Thank you!

It worked. Thank you!

"Cory" wrote:

Filo - give this a try. It counts the total number of cells and then
subtracts the number of cells that contain numbers.

Sub CountText()

Dim Count As Integer

Count = Range(ActiveCell, ActiveCell.End(xlToRight)).Cells.Count
Count = Count - WorksheetFunction.Count(Range(ActiveCell,
ActiveCell.End(xlToRight)))
MsgBox "There are " & Count & " cells containing text."

End Sub

-Cory

"Filo" wrote:

Could you help me with the VB code that would perform the following?

Count the number of cells that have text in a range that goes from the
active cell to .End(xlRight)

Thank you!