Merging Macros

[dcwinter]

Hi All,

For the last few years, this site has proved invaluable, and I can't thank you all enough of your help. Unfortunately, I've been using Excel less and less recently and my ability to get remember how to do things is diminishing!

I've been trying on and off for a year now to get these two macros to work - but it would be great if I could also merge them. I can't understand what is going wrong with them at all - I have had them working in the past which is even more confusing:

Sub Macro12()
Sheets("Dashboard").Select
ActiveSheet.Unprotect
Range("C46").Select
Dim myRng As Range
Set myRng = Range("C46", Range("C71").End(xlUp))
Application.ScreenUpdating = False
For Each c In myRng
If c.Value = "" Then c.EntireRow.Hidden = True
Next c
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub Macro13()
Sheets("Dashboard").Select
ActiveSheet.Unprotect
Range("C46").Select
Dim myRng As Range
Set myRng = Range("C46", Range("C71").End(xlUp))
Application.ScreenUpdating = False
For Each c In myRng
If c.Value = "NA" Then c.EntireRow.Hidden = True
Next c
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Have I made any obvious errors? Does anyone have any other options?

Many thanks in advance for any help you can give me - if I complete this, I will finish this particular project

Regards


DC

 

[venkat1926]

in the first macro change it to

If c.Value = "" or c.value="NA" Then c.EntireRow.Hidden = True

then second macro may not be necessary. test