Macro find and replace for multiple sheets on just 1 column

[ste33uka]

I have the following macro that replaces part of a formula for only column B that works fine,
could somone adjust it so it would run for 50 sheets,
My workbook has 55 sheets, the 1st 5 sheets i would like it not to run on
The next 50 sheets are named 1,2,3,4,5,6,7 and so on
Thanks

Sub find_and_replace()
    Columns("b").Replace What:="$D$1000:$D$267777", _
                            Replacement:="$D$1:$D$267777", _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            MatchCase:=False, _
                            SearchFormat:=False, _
                            ReplaceFormat:=False
End Sub

 

[Osvaldo Palmeiro]

Try this:

Sub find_and_replace()
 Dim k As Long
  For k = 1 To 50
    Sheets(k).Columns("b").Replace What:="$D$1000:$D$267777", _
     Replacement:="$D$1:$D$267777", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, _
         SearchFormat:=False, ReplaceFormat:=False
  Next k
End Sub

 

[ste33uka]

Try this:

Sub find_and_replace()
Dim k As Long
  For k = 1 To 50
    Sheets(k).Columns("b").Replace What:="$D$1000:$D$267777", _
     Replacement:="$D$1:$D$267777", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, _
         SearchFormat:=False, ReplaceFormat:=False
  Next k
End Sub

Thanks alot, that works