Sub FindReplaceMainContractor()
Dim Findtext As String
Dim Replacetext As String
Findtext = "Main Contractor"
Replacetext = Sheets("Project Input Tab").Range("B4").Value
Sheets("MS001").Select
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Findtext = "Main Contractor"
Replacetext = Sheets("Project Input Tab").Range("B4").Value
Sheets("MS002").Select
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Findtext = "Main Contractor"
Replacetext = Sheets("Project Input Tab").Range("B4").Value
Sheets("MS003").Select
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Findtext = "Main Contractor"
Replacetext = Sheets("Project Input Tab").Range("B4").Value
Sheets("MS004").Select
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Findtext = "Main Contractor"
Replacetext = Sheets("Project Input Tab").Range("B4").Value
Sheets("MS005").Select
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Findtext = "Main Contractor"
Replacetext = Sheets("Project Input Tab").Range("B4").Value
Sheets("MS006").Select
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Findtext = "Main Contractor"
Replacetext = Sheets("Project Input Tab").Range("B4").Value
Sheets("MS007").Select
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Findtext = "Main Contractor"
Replacetext = Sheets("Project Input Tab").Range("B4").Value
Sheets("MS008").Select
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Findtext = "Main Contractor"
Replacetext = Sheets("Project Input Tab").Range("B4").Value
Sheets("MS009").Select
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Findtext = "Main Contractor"
Replacetext = Sheets("Project Input Tab").Range("B4").Value
Sheets("MS010").Select
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Findtext = "Main Contractor"
Replacetext = Sheets("Project Input Tab").Range("B4").Value
Sheets("MS011").Select
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Findtext = "Main Contractor"
Replacetext = Sheets("Project Input Tab").Range("B4").Value
Sheets("MS012").Select
Cells.Replace What:=Findtext, Replacement:=Replacetext, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub