get_mda3.vb

Sub MDA3()

    Dim counter As Integer
    Dim response As Integer
    
    response = MsgBox("Running macro will reset data entered manually on target population. Do you wish to continue?", vbYesNo)

    Select Case response

    Case vbYes
    
    For counter = 9 To 1000
        
        
    '--- If MDA 3 implmented ---
    If Worksheets("MDA3").Cells(counter, 4) = "MDA3 (IVM)" Then
        
        '--- PreSAC ---
        '--- Worksheets("MDA3").Cells(counter, 6) = "Not eligible"
        '--- SAC ---
        Worksheets("MDA3").Cells(counter, 6) = Worksheets("COUNTRY_INFO").Cells(counter, 6)
        '--- Adults ---
        Worksheets("MDA3").Cells(counter, 7) = Worksheets("COUNTRY_INFO").Cells(counter, 7)
        
    '--- Else
        '--- Worksheets("MDA3").Cells(counter, 6) = " "
        '--- Worksheets("MDA3").Cells(counter, 7) = " "
        '--- Worksheets("MDA3").Cells(counter, 8) = " "
        
    End If
               
Next counter

Case vbNo

End Select

End Sub