Vada a naso

Sub nascondi(byval riferimento as integer)
riga = riferimento
Rows(riga & ":" & riga).Select
Selection.EntireRow.Hidden = True
End Sub