I am trying to create a macro that is asigned to a button. When you
press the button I want it to let you navigate to the workbook you
want, then when you open the desired workbook it copies and paste
specials (values and number formats) all of sheet 1 from the workbook
you navigated to into sheet 1 of the workbook that the button is in.
Any help with the code to at least point me in the right direction
would be greatly appreciated.

Thanks

Put the following in a regular Module.

Public Sub CopySheet1()
Dim str1 As String
Dim iRtn As Integer
Dim wb As Workbook
Dim rng As Range

iRtn = MsgBox("Are you sure you want to copy to a non-empty sheet?",
vbYesNo)
If iRtn = vbNo Then Exit Sub
str1 = Application.GetOpenFilename("Excel files, *.xls")
Set wb = Workbooks.Open(str1)
Set rng = wb.Sheets("Sheet1").UsedRange
rng.Copy
ThisWorkbook.Activate
Sheets("Sheet1").Activate
Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
wb.Close
End Sub

Hth,
Merjet