Find & Replace All Sheets Using VBA

Thanks in advance!

I need to find column a and replace with column B text across all sheets. The code I have is only doing the find and replace on one sheet? Any tips?

Sub SearchReplaceMacro()

    Cells.Replace What:=Range("A1").Text, Replacement:=Range("B1").Text, LookAt:=xlWhole, _
        SearchOrder:=xlPart, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:=Range("A2").Text, Replacement:=Range("B2").Text, LookAt:=xlWhole, _
        SearchOrder:=xlPart, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:=Range("A3").Text, Replacement:=Range("B3").Text, LookAt:=xlWhole, _
        SearchOrder:=xlPart, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:=Range("A4").Text, Replacement:=Range("B4").Text, LookAt:=xlWhole, _
        SearchOrder:=xlPart, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:=Range("A5").Text, Replacement:=Range("B5").Text, LookAt:=xlWhole, _
        SearchOrder:=xlPart, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:=Range("A6").Text, Replacement:=Range("B6").Text, LookAt:=xlWhole, _
        SearchOrder:=xlPart, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Replace What:=Range("A7").Text, Replacement:=Range("B7").Text, LookAt:=xlWhole, _
        SearchOrder:=xlPart, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

End Sub