count of changed data
 

Hello,
I am using a macro to lower case selected areas.
How can I correctly print the number of cells changed, rather than
visited?

Sub lowerme()
Dim cell As Object
Dim count As Integer
count = 0
For Each cell In Selection
count = count + 1
cell.Value = LCase(cell.Value)
Next cell
MsgBox count & " Cells Changed "
End Sub

TIA

Ton

count of changed data
 

This worked for me:
If cell.Value < LCase(cell.Value) Then count = count + 1

Of course, you need this before you change a cell.

Hth,
Merjet

count of changed data
 

"ton de w" wrote:

Hello,
I am using a macro to lower case selected areas.
How can I correctly print the number of cells changed, rather than
visited?

Sub lowerme()
Dim cell As Object
Dim count As Integer
count = 0
changed = 0
For Each cell In Selection
oldvalue = cell.Value
count = count + 1
cell.Value = LCase(cell.Value)
if oldvalue < cell.value then
changed = changed + 1
end if
Next cell
MsgBox count & Changed
End Sub

TIA

Ton