Try this...

Private Sub CommandButton1_Click()
Dim FName As String, Ws As Worksheet, Wb As Workbook
Set Ws = ActiveSheet
FName = Application.GetOpenFilename( _
FileFilter:="Excel Files (*.xls), *.xls")

If FName < "False" Then
Set Wb = Workbooks.Open(FName)
Else
Exit Sub
End If

Wb.Sheets(1).Range("A1").Copy Ws.Range("A1")
Wb.Close SaveChanges:=False

End Sub

--
Dan Oakes