Looping through named ranges

[mikeymay]

I have a number of named ranged on a worksheet, some are just once cell and others consist of a number of cells.

I have been trying to use the following code to loop through each named range, but I cannot seem to get it to work.

Dim rngCheck As Range
Dim wsSheet As Worksheet

'On Error GoTo EH

If ActiveWorkbook.Name = "North Bank Control Sheet Template.xls" Then
    Set wsSheet = Sheets("Control Sheet")
    For Each rngCheck In wsSheet
        If rngCheck = "" Then
            Else
            MsgBox ("Data present")
            'do something here as there is data in worksheet
        End If
    Next
    Else
End If

'Exit Sub

'EH:

'MsgBox (Err.Description)


End Sub

Any comments would be appreciated.


Thanks

 

[DiscoPistol]

I realise that this has nothing to do with your actual code but hopefully it will give you some ideas about 'Union'

Sub Union ()
Dim CMS, Section1ContractName, MyRanges, Section1Applicant As Range

Set Section1ContractName = Range("e8")
Set CMS = Range("I3")
Set Section1Applicant = Range("E9")
 
Set MyRanges = Union(Section1ContractName, CMS, Section1Applicant)
 
  
For Each Ranges In MyRanges
If MyRanges = "" Then MsgBox "This Range is Empty""
Next Ranges
 
 
End Sub

DP