Private Sub Worksheet_Activate()
If Range("AD5").Value = "" Then
Columns("AD:AD").Hidden = True
Else
Columns("AD:AD").Hidden = False
End If
If Range("AE5").Value = "" Then
Columns("AE:AE").Hidden = True
Else
Columns("AE:AE").Hidden = False
End If
If Range("AF5").Value = "" Then
Columns("AF:AF").Hidden = True
Else
Columns("AF:AF").Hidden = False
End If
End Sub