Pass row to sub with active cell being default

[Dr. Demento]

I'm attempting to modify a small sub that hides columns based on a key string in the header. I'm getting hung up on two points 1) passing the row number of the header and 2) setting the location of the activecell as the default header location. Here's a failing attempt.

Sub Hide_Column(strHeader As String, ByRef row_Hdr As Range = ActiveCell.EntireRow.Calculate)

When I use the statement above, the text is red/won't run.
I've attempted to take out the ByRef and place it within the sub ( row_Hdr as Variant); it returns null (clearly not correct).

All suggestions welcome.

Thanks, y'all.

 

[V_Malkoti]

Default values are applicable only for Optional parameters. Also I think that default value can only be a constant.

So you can declare row_hdr as optional and then check if it is null or not in the sub. Probably like this:

Sub testhide()
    Hide_Column "header"
    Hide_Column "header", Range("1:1")
End Sub


Sub Hide_Column(strHeader As String, Optional row_Hdr As Range)
    If row_Hdr Is Nothing Then row_Hrd = ActiveCell.EntireRow
    row_Hdr.Hidden = True
End Sub

 

[Dr. Demento]

That works perfect. Thanks!!

Appreciate the info re: default values too.