Conditionally Hide Excel Tabs-If they are Empty

[Hot Soup]

I have seen a couple of topics similar to this, but can't quite figure it out on my own.

I have about a dozen tabs, all of which have vlookups in them and calculate based on what a user pastes into Sheet 1. I need a macro that hides all tabs that have no data, essentially tabs where A1 = ""
However, it also needs to unhide tabs as soon as there is data. So if the user pastes new data into Sheet 1 the vlookups, on the other sheets, still need to run (even if they are hidden) and then check against the macro to determine whether to be hidden or unhidden.

Sorry if this is a simple answer and thanks for your help!

[Hot Soup]

Using Roy's post here: http://www.excelforum.com/1817360-post4.html

I tried to create the following, but I get the error "Argument not optional" It does not point to the place in the code where I go wrong, and debug shows no problems.

Option Explicit

Sub hide(ByVal Target As Excel.Range)
    '
    ' hide Macro

    Dim ws     As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        Set Target = Range("A1")
        If Target <> "" Then
        If ws.Visible = -1 And ws.Name <> ActiveSheet.Name Then ws.Visible = 0
        Else
        ws.Visible = -1
        End If
    Next ws
    Exit Sub
End Sub

Any Advice?

[bhofsetz]

You don't need the Target reference.

Try this to hide your empty worksheets instead

Sub hide()
    '
    ' hide Macro

    Dim ws     As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Range("A1") = "" Then
        If ws.Visible = -1 And ws.Name <> ActiveSheet.Name Then ws.Visible = 0
        Else
        ws.Visible = -1
        End If
    Next ws
    Exit Sub

End Sub

I'm not sure about dealing with your secone problem.

You could run an unhide subroutine similar to the one above that will run on a worksheet change event handler that watches for a change in the range where data would be enterend on the active sheet.

[Hot Soup]

Thanks, that works.