I found the macro copied below for filling numbers to the end of data and
then modified it for my start point and columns and then added lines for
unprotect and protect and then added it as a macro button on the protected
sheet.
VB: AutoLinked keywords will cause extra spaces before keywords. Extra
spacing is NOT transferred when copy/pasting, but IS if the keyword uses
"quotes".
Sub Add_Numbers()
Dim r As Range, c As Range
Set r = Range("A2:A" & Range("B65536").End(xlUp).Row)
For Each c In r
c.Value = c.Row - 2
Next c
Set r = Nothing: Set c = Nothing
End Sub
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.