Experts Exchange connects you with the people and services you need so you can get back to work.
Dim n As Long
Dim ar As Range, rg As Range
Application.ScreenUpdating = False
Set rg = Selection
With Cells(Rows.Count, 1)
.Value = 100
For Each ar In rg.SpecialCells(xlCellTypeConstants)
ar.PasteSpecial Paste:=xlPasteValues, Operation:=xlDivide, SkipBlanks:=True, Transpose:=False
rg.NumberFormat = "#,##0.00"
n = rg.Worksheet.UsedRange.Rows.Count
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.