Button to display daily view, if data is blank hide the column

Hi,

I have a dashboard which displays results at Monthly, Weekly & Daily level.

To view the data you press a button and it hides the other views leaving the view you have requested.

The issue i have is on the daily sometimes the data will be blank, eg. if its a Wednesday i wont have data for Wed,Thurs,Fri,Sat & Sun.

Is there a way i can adapt my current code to hide the daily columns if the values are blank?

How about something like this

Sub ViewDaily()
Application.ScreenUpdating = False
Columns("C:AL").Hidden = True
Columns("V:AL").Hidden = False
If IsNumeric(Range("V8").Value) = False Then Columns("V").Hidden = True
If IsNumeric(Range("W8").Value) = False Then Columns("W").Hidden = True
If IsNumeric(Range("X8").Value) = False Then Columns("X").Hidden = True
If IsNumeric(Range("Y8").Value) = False Then Columns("Y").Hidden = True
If IsNumeric(Range("Z8").Value) = False Then Columns("Z").Hidden = True
If IsNumeric(Range("AA8").Value) = False Then Columns("AA").Hidden = True
If IsNumeric(Range("AB8").Value) = False Then Columns("AB").Hidden = True

If IsNumeric(Range("AE8").Value) = False Then Columns("AE").Hidden = True
If IsNumeric(Range("AF8").Value) = False Then Columns("AF").Hidden = True
If IsNumeric(Range("AG8").Value) = False Then Columns("AG").Hidden = True
If IsNumeric(Range("AH8").Value) = False Then Columns("AH").Hidden = True
If IsNumeric(Range("AI8").Value) = False Then Columns("AI").Hidden = True
If IsNumeric(Range("AJ8").Value) = False Then Columns("AJ").Hidden = True
If IsNumeric(Range("AK8").Value) = False Then Columns("AK").Hidden = True
Application.ScreenUpdating = True
End Sub

Could have reduced the lines of code by creating a loop

Excellent works a charm.

Thankyou