Unhiding sheet based on cell value

Hi,

I have a number of worksheets hidden, however i want to unhide the sheets if a cell (u8, on the data entry tab) value = true.

I've tried the following, but i keep getting prof1 is a invalid qualifier.


Option Explicit
Option Compare Text

Dim prof1 As String

Sub unhide()

Sheets("Data Entry").Range("u8").Text = prof1

If prof1.Value = True Then

Sheets("Profile 1 - Expo. Rating").Visible = True

Else

Sheets("Profile 1 - Expo. Rating").Visible = False

End If

End Sub