Skjule linier og kolonner

Kan i hjælpe...
Jeg har følgende makro:

Sub Skjul()
On Error GoTo Fejl
Application.ScreenUpdating = False
Dim iLoop As Integer
Dim rNa As Range
Dim I As Integer
Dim rx As Range
svalue = 0          'søgeværdi
scolumn = 13            'søgekolonne
iLoop = WorksheetFunction.CountIf(Columns(scolumn), svalue)
Set rNa = Cells(1, scolumn)
Set rx = Columns(scolumn).Find(What:=searchvalue, After:=rNa, _
            LookIn:=xlValues, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=True)

For I = 1 To iLoop

  Set rNa = Columns(scolumn).Find(What:=svalue, After:=rNa, _
            LookIn:=xlValues, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=True)
  Set rx = Union(rNa, rx)
 
Next I
rx.EntireRow.Hidden = True
Cells(1, 1) = ExecuteExcel4Macro("Get.Document(50)")
Application.ScreenUpdating = True
ActiveSheet.Cells(1, 3).Select
Exit Sub
Fejl:
  MsgBox "Der er ingen nul-linier at skjule !"

End Sub


Mit problem er at jeg gerne vil bruge samme makro til et andet regneark også. Der skal den gennemsøge kolonne 13 på størstedelen af fanbladende ligesom her, men på enkelte fanablade skal den søge i kolonne 48.

Hvordan får jeg fortalt at når man bruger makroen på lige præcis disse 4 faneblade skal den søge i kolonne 48 (kan man skrive navnene i makroen)