Macro

[Frank]

I need to protect the sheet and have tried
ActiveSheet.Unprotect(at Begining) and then
ActiveSheet.Protect(at end) which did not work?

Also for the first Default I would like to use any number
other than zero and eliminate the first prompt?

Thank you for any assistance you can offer.


MACRO3

Dim vResult1 As Variant
Dim vResult2 As Variant
vResult1 = Application.InputBox( _
Prompt:="Enter Row Number to Replace", _
Default:=20, _
Title:="Replacer", _
Type:=1)
If vResult1 = False Then Exit Sub 'user cancelled
vResult2 = Application.InputBox( _
Prompt:="Enter Replacement Row Number", _
Default:=21, _
Title:="Replacer", _
Type:=1)
If vResult2 = False Then Exit Sub 'user cancelled
With Range
("A3:AF3,B7:AC7,B11:AF11,B15:AE15,B19:AF19,B23:AE23,B27:AF2
7,B31:AF31," & _
"B35:AE35,B39:AF39,B43:AE43,B47:AF47")

.Replace _
What:=vResult1, _
Replacement:=vResult2, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False

End With
End Sub

 

[Jay Freedman]

Hi Frank,

It looks like you're working in Excel, but this is a Word newsgroup. You're
more likely to get an answer in the Excel Programming group.