Hallo,

eigentlich braucht es nur einen Code zum Ein- und Ausblenden:

Sub ausein()
Dim einblenden As Boolean
einblenden = Rows(4).Hidden
Rows(4).Hidden = (Not einblenden) And (Range("K4") = "")
Range("A4").Value = IIf(einblenden, "x", "")
ActiveSheet.Shapes.Range(Array("Test")).Visible = einblenden
ActiveSheet.Shapes.Range(Array("TF Test")).Visible = Not einblenden
End Sub

Gruß

Michael