Macro

[Frank]

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

Thank you for any assistance you can give.

Sheets("Personal Schedules").Select
ActiveSheet.Unprotect

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

ActiveSheet.Protect

End With
End Sub



..