Help with code

Private Sub CommandButton2_Click()
Dim basebook As Workbook
Dim mybook As Workbook
Dim rnum As Long
Dim FNames As String
Dim MyPath As String
Dim SaveDriveDir As String
Dim Cnum As Integer
Dim cell As Range

'Set Drive and Folder variables
    SaveDriveDir = CurDir
    MyPath = "C:\Documents and Settings" '< Change to Path you want to use...
    ChDrive MyPath
    ChDir MyPath
    FNames = Dir("*.xls")
'Check Folder for files
    If Len(FNames) = 0 Then
        MsgBox "No files in the Directory"
        ChDrive SaveDriveDir
        ChDir SaveDriveDir
        Exit Sub
    End If
'Turn off screen updating
    Application.ScreenUpdating = False
'Set workbook variable
    Set basebook = ThisWorkbook
''clear all cells on active worksheet
'    basebook.Worksheets("Sheet1").Cells.Clear

z = ActiveSheet.Cells(2, 6).Value
x = ActiveSheet.Cells(1, 6).Value
x = x & ".pdf"
y = ActiveSheet.Cells(3, 6).Value

rnum = 1
'Loop thru file names
    Do While FNames <> ""
        Set mybook = Workbooks.Open(FNames)
            ActiveWorkbook.FollowHyperlink Address:=(y), _
            NewWindow:=True
        
'        ' This will add the workbook name in column A
'        basebook.Worksheets(1).Cells(rnum, "A").Value = mybook.Name
'        ' Copy the cell values from each cell in one row starting in column B
'        Cnum = 2
'            For Each cell In mybook.Worksheets(1).Range("B1,B2,B3,B4,B5")
'                basebook.Worksheets(1).Cells(rnum, Cnum).Value = cell.Value
'                Cnum = Cnum + 1
'            Next cell
        mybook.Close False
        rnum = rnum + 1
        FNames = Dir()
    Loop
'Return to original Drive and Folder
    ChDrive SaveDriveDir
    ChDir SaveDriveDir
'Turn Screen Updating back on
    Application.ScreenUpdating = True
End Sub