Guru do Excel e Power BI

Private Sub UserForm_Initialize()

Dim w As Worksheet
Dim UCD As String
Dim UCM As String
Dim UCDR As Range
Dim UCMR As Range

    ActiveWorkbook.Sheets("RegBackup").Activate ' da erro aqui, e sim, tenho um plano chamado "RegBackup" ele é o Plan12.
 
    Cells(1, 3).Select
    
    Do
    If ActiveCell.Value <> "" Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until ActiveCell.Value = ""
    ActiveCell.Offset(-1, 0).Select
    UCM = ActiveCell.Value
        
Cells(1, 1).Select
 

'[......] tem muito mais código mais da erro ali em cima.[...]
End Sub