Hide rows dependant upon value of cell

I have some data sitting in cells c39 to c48. Each of these cells contain a formula looking at another sheet. The returned data contains either some text or a number

If c39 returns a number I want to hide rows 39 to 48
If c40 returns a number I want to hide rows 40 to 48
If c41 retuens a number I want to hide rows 41 to 48
If c42 retuens a number I want to hide rows 42 to 48
If c43 retuens a number I want to hide rows 43 to 48
If c44 retuens a number I want to hide rows 44 to 48
If c45 retuens a number I want to hide rows 45 to 48
If c46 retuens a number I want to hide rows 46 to 48
If c47 retuens a number I want to hide rows 47 to 48
If c48 retuens a number I want to hide rows 48

or I would be happy to say:
If c39 returns a number I want to hide rows 39
If c40 returns a number I want to hide rows 40
If c41 retuens a number I want to hide rows 41
If c42 retuens a number I want to hide rows 42
If c43 retuens a number I want to hide rows 43
If c44 retuens a number I want to hide rows 44
If c45 retuens a number I want to hide rows 45
If c46 retuens a number I want to hide rows 46
If c47 retuens a number I want to hide rows 47
If c48 retuens a number I want to hide rows 48

The sheet already contains this VBA code

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range("c38:c47").Rows.AutoFit
End Sub

and I would still need to have this on the sheet

Im new to VBA so any help would be rally appreciated

I am but the data is sitting on a dashboard so I dont want to have it on there. Also the data is dependant upon the value in a reference cell and will look at other feed data

I could set it as any number really. Presently the numbers are limited to 1-10

Hi
Right click on the Tab you want this action to take place and click on "View Code". Then cut and paste the folling code onto the sheet exactly as is and save and close the sheet:

Private Sub Worksheet_Change(ByVal Target As Range)
'
'
'Check Cell C39 for numeic Value
If IsNumeric(C39) Then
Rows("39:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C40 for numeic Value
If IsNumeric(C40) Then
Rows("40:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C39 for numeic Value
If IsNumeric(C39) Then
Rows("41:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C42 for numeic Value
If IsNumeric(C39) Then
Rows("42:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C43 for numeic Value
If IsNumeric(C39) Then
Rows("43:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C44 for numeic Value
If IsNumeric(C39) Then
Rows("44:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C45 for numeic Value
If IsNumeric(C39) Then
Rows("45:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C46 for numeic Value
If IsNumeric(C39) Then
Rows("46:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C47 for numeic Value
If IsNumeric(C39) Then
Rows("47:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C48 for numeic Value
If IsNumeric(C39) Then
Rows("48:48").Select
Selection.EntireRow.Hidden = True
End If
End Sub

Let me know how you get on.
Good luck.
Tony

I pasted your code but for some reason it doesnt seem to work . For info - not sure how relevant - I have changed the cell formats to number and am working in a macro enabled 2010 work sheet

Any - Yes I would if c42 isn't numeric but C39 is I would want to show row 42

I have attached my spreadsheet to this email

The sheet where the data is is called DASH-Department(1)
There is a cell (j6) which provides an indirect function to change some of the data - dont know if this is relevant

Many thanks for your help

Hi
Firstly the code wont run because you have Macro's disabled in your workbook. You need to enable macros. Secondly there were a fewq errors in the code I provided you so please replace with the code below:

Private Sub Worksheet_Change(ByVal Target As Range)
'
'
'Check Cell C39 for numeic Value
If IsNumeric(C39) Then
Rows("39:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C40 for numeic Value
If IsNumeric(C40) Then
Rows("40:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C41 for numeic Value
If IsNumeric(C41) Then
Rows("41:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C42 for numeic Value
If IsNumeric(C42) Then
Rows("42:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C43 for numeic Value
If IsNumeric(C43) Then
Rows("43:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C44 for numeic Value
If IsNumeric(C44) Then
Rows("44:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C45 for numeic Value
If IsNumeric(C45) Then
Rows("45:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C46 for numeic Value
If IsNumeric(C46) Then
Rows("46:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C47 for numeic Value
If IsNumeric(C47) Then
Rows("47:48").Select
Selection.EntireRow.Hidden = True
End If
'Check Cell C48 for numeic Value
If IsNumeric(C48) Then
Rows("48:48").Select
Selection.EntireRow.Hidden = True
End If
End Sub

Good luck.
Tony

Tony

Thanks for all your help but Im still not getting anywhere with this - Ive changed the Macro settings and they are enabled. Roger

Hi Roger
Please check your private messages.
Tony

Hi Roger
Please replace the current code with the code in the attached file and let me know how you get on.
Good luck.
Tony

Ill give this a go when Im back at my desk

Thanks

Tony

I think we're getting there. The code works but only when i turn the auto caluculation to manual. When its on automatic the screen 'flashes' as it is calculating iver and over again and the programme crashes as a result

Any ideas?