Hide a Range of Cells in Excel using Macro

[peoplesoft]

Hello

I have seen various types of Logic to Hide Rows and Columns in Excel, I am already Using a Dirty Way of doing it. But I was thinking maybe someone can help me build a better way of Doing it.
Here is a sample Data:

https://picasaweb.google.com/lh/photo/eGI3mjH5jRRGZtrQZOT_x69YdAVc8bz5Ke_LoJMPuVQ?feat=directlink

Basically my request is to Find the "Start-P&L" and "End-P&L" Texts and Hide the Entire Row and Columns of that Range B3:F10. The Cell Position is not Constant so it is Key that I find these Texts and then Hide the Corresponding Cells.
If I can Hide the Range (B3:F10) it will be Awesome too. But I don't Know if that can be done or not.
I hard coded the Cells with a text "BS"
My Code as You see from the screenshot is something like this:

Sub HideRows1()
Dim cell As Range
For Each cell In Range("A:IV")
If UCase(cell.Value) = "BS" Then
cell.EntireRow.Hidden = True
cell.EntireColumn.Hidden = True
End If
Next
End Sub

Please Help
Thanks in Advance
Peoplesoft Guy

 

[peoplesoft]

bump

 

[peoplesoft]

Help Needed Please

Thanks

 

[Sektor]

Sub G()

    Dim rngTopLeft As Range, rngBottomRight As Range
    
    With Sheets(1).Cells
        Set rngTopLeft = .Find(What:="Start-P&L")
        Set rngBottomRight = .Find(What:="End-P&L")
        With .Range(rngTopLeft, rngBottomRight)
            .EntireRow.Hidden = True
            .EntireColumn.Hidden = True
        End With
    End With

End Sub

 

[klarowe]

Nvmd... his is better... lol

 

[peoplesoft]

Thanks Sektor - I think this works for me -
I will try this on my Full Sheet of Data first.
Range("BS").EntireRow.Hidden = True
Range("BS").EntireColumn.Hidden = True

My Range is not Constant as my process Adds rows in Between - But if I use the Range name it gets added to it automatically. So I am hoping this should work Just Fine.

Once Again Thanks