I need to protect this sheet and tried the
ActiveSheet.Unprotect(at begining) and ActiveSheet.Protect
(at end) and it did not work?

I also wanted to eliminate the first prompt by making the
first Default any number other than zero?

Thank you for any assistance you can give.


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:AE2 3,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

Public Sub ReplacerManual()
Dim vResult1 As Variant
Dim vResult2 As Variant
vResult1 = Application.InputBox( _
Prompt:="Enter number to replace", _
Default:=29, _
Title:="Replacer", _
Type:=1)
If vResult1 = False Then Exit Sub 'user cancelled
vResult2 = Application.InputBox( _
Prompt:="Enter replacement", _
Default:=32, _
Title:="Replacer", _
Type:=1)
If vResult2 = False Then Exit Sub 'user cancelled

activesheet.unprotect password:="hi" '<--- added

With Range("A3:F3,B11:AF11,B23:AE23,B27:AF27,B31:AF31," & _
"B35:AE35,B39:AF39,B43:AE43,B47:AF47")
.Replace _
What:=vResult1, _
Replacement:=vResult2, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=False
End With

activesheet.protect password:="hi" '<--- added

End Sub

Change the password to what it really is, though.

And you want the first number to always be a certain number (no user input)???

replace:
vResult1 = Application.InputBox( _
Prompt:="Enter number to replace", _
Default:=29, _
Title:="Replacer", _
Type:=1)
with
vResult1 = 12345

(or whatever number you always want.)



Frank wrote:

I need to protect this sheet and tried the
ActiveSheet.Unprotect(at begining) and ActiveSheet.Protect
(at end) and it did not work?

I also wanted to eliminate the first prompt by making the
first Default any number other than zero?

Thank you for any assistance you can give.

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:AE2 3,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

--

Dave Peterson