与えられた列からRangeの最終列まで非表示にするマクロを作りたかったけど眠いからあきらめる
Sub test(rngSrc As Range, iStartColumn As Integer)
MsgBox "最終列は : " & rngSrc.Column
MsgBox "最終列は : " & rngSrc.EntireColumn.Count
Dim rng As Range
If rngSrc.MergeCells Then
rng = rngSrc.MergeArea
End If
Set rng = Cells(rngSrc.Row, iStartColumn)
Range(Cells(1, 1), Cells(3, 2)).Select
rng.Hidden = True
End Sub