Problemas para oculta filas con esta macro

Señores ten esta macro para oculta una fila pero me esta dando problemas, no se si sera por la versión de excel la cual es 2007 se las dejo para que la revisen.-

activa = ActiveCell.Address
If Range("G16") = "Verdadero" Then
Rows("6").EntireRow.Hidden = True
Else
Rows("6").EntireRow.Hidden = False
End If
Range(activa).Select
End Sub