Search code examples
excelvbaworksheet

VBA sub doesn't select the range of a specific Worksheet


I just want to get the range from A1:A80 from a sheet called "Children" but I debug it, it gets nothing. Here's my code below:

   Dim wks2 As Worksheet
   Dim children As Range
   Worksheets("Children").Activate
   Set wks2 = Worksheets("Children")
   Set children = wks2.Range("A1:A80")
   ResetChild (children) //The sub that I want to call. Explanation bellow.

In the function ResetChild I want to delete all the sheets in my Workbook, that have names equal to the first column of the sheet Children. (A1:A80) So here's my sub below:

Sub ResetChild(children As Range)
Call DisableCalculations
Dim cell As Range
    
For Each cell In children
    Set childrenSheet = Worksheets(cell.Value)
        If (DoesSheetExist(childrenSheet)) Then
            Application.DisplayAlerts = False
            Sheets(childrenSheet).Delete
            Application.DisplayAlerts = True
        End If
End Sub

Solution

  • Your code should work. How do you know that it returns nothhing? put the row in the end of your code

       Debug.Print children.Count
    

    if it returns >0 then all ok and children is the range object with data