hi

i like to now how to copy cell data from one worksheet to another.

the thing is, a am working on a function that copys multiple worksheets to one master, and saves all into one sheet.

the code to get and open thouse worksheets 

Private Sub CommandButton3_Click()

    Dim Source As Workbook
    Dim Dest As Workbook
    Dim fn As Variant, f As Integer

    fn = Application.GetOpenFilename("Excel-files,*.xls", _
        1, "Select One Or More Files To Open", , True)
    If TypeName(fn) = "Boolean" Then Exit Sub
    For f = 1 To UBound(fn)
        Debug.Print "Selected file #" & f & ": " & fn(f)
        Set Source = Workbooks.Open(fn(f))
        MsgBox ActiveWorkbook.Name, , "Active Workbook Name:"
        
        TextBox1.Text = fn(f)
        Set Dest = ActiveWorkbook
        
     //   
     //   
        
        ActiveWorkbook.Close False
        ' close the active workbook without saving any changes
    Next f
        
    
End Sub
i like to now how to insert a funktion to copy specifyed cells to master worksheet sheet .

i tryed varius codes for about a few houers but with no respons.

please help // Lizerd