basic unhide sheet text&B1

[Peterfc2]

I have two sheets I want to unhide.

Worksheets("FIXTURES 1990-91").Visible = True
Worksheets("STATS 1990-91").Visible = True

This works ok, but I need to say

Worksheets("FIXTURES & B1").Visible = True
Worksheets("STATS & B1").Visible = True
Where cell B1 holds 1990-91.

This doesn't work. My brains gone to sleep. Help Please!

 

[Tetra201]

Try using

Worksheets("FIXTURES " & B1).Visible = True
Worksheets("STATS " & B1).Visible = True

 

[CsJHUN]

Hi!

How about this:

Worksheets("FIXTURES " & Sheets("where b1 contain 1990-91").Range("B1").value).Visible = True
Worksheets("STATS " & Sheets("where b1 contain 1990-91").Range("B1").value).Visible = True

There is a " " (space) after the fixtures and stats, then calling the value of "B1" the Sheets("where b1 contain 1990-91")

 

[Peterfc2]

Not working
Worksheets("FIXTURES " & B1).Visible = True
Worksheets("STATS " & B1).Visible = True

 

[Tetra201]

ADVERTISEMENT

Oops. Of course it should read:

Worksheets("FIXTURES " & Range("B1").Value).Visible = True
Worksheets("STATS " & Range("B1").Value).Visible = True

 

[Peterfc2]

YES, THATS GOT IT!
However moving on I get an error if that sheet name is non existent. Anyone know a way of trapping it.

 

[Tetra201]

ADVERTISEMENT

Not sure what you want to do, but here is the code:

On Error Resume Next
Worksheets("FIXTURES " & Range("B1").Value).Visible = True
On Error Resume Next
Worksheets("STATS " & Range("B1").Value).Visible = True
On Error GoTo 0

 

[Peterfc2]

Spot on. Thank you very much.

 

[Tetra201]

You are welcome.