Need help with hiding a row based off criteria, and deleting cell content also

[PhillipRD]

Hi all, this is my first time attempting any VBA at all I've had success in getting both options I want to work separately but not together.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Select Case Range("c2")
End Select
If Range("c2").Value = "New Customer" Then Rows(5).Hidden = False Else Rows(5).Hidden = True
If Range("b5:e5").Value = "" And Rows(5).Hidden = True Then Range("b5:e5").ClearContents Else Exit Sub
End Sub

This is what I have so far when trying to get both to work at same time.

The end result I am looking for is the row 5 to hide and unhide based off my drop down list, which is working. Then when the row 5 is hidden to check cells in range b5:e5 for any content and if there is any to delete it.

Run-time error '13':

Type mismatch is currently the error I am receiving

Any and all help is greatly appreciated. I have no deadline on this just thought it be fun to learn VBA and wanted to do some cool stuff.

[mehmetcik]

Hi

how can you say:

Please Login or Register  to view this content.

You need to sum or add the values in the range together,

Excel will give you an error.

[PhillipRD]

The values I'm looking are actually words in each cell. Should I still add them, also isn't b5:e5 mean the sum? I'm just learning this not sure of how all the Code works.

[mehmetcik]

No.

If you want to add the text together then you need to say:

Please Login or Register  to view this content.

You can use concatenate within excel to join the strings together and then test if that cell is empty.

So in Excel Enter this in A5:

Please Login or Register  to view this content.

then in VB:

Please Login or Register  to view this content.

Hope that helps.