So I've gotten most of what I need figured out through trial and error. I'm just having trouble with this last bit. Pasting values using the same format I already used to copy other sheets.
Any help?
Sub CopyValues()
Dim Fname As String
Dim SrcWbk As Workbook
Dim DestWbk As Workbook
Set DestWbk = ThisWorkbook
Fname = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*), *.xls*", Title:="Select a File")
If Fname = "False" Then Exit Sub
Set SrcWbk = Workbooks.Open(Fname)
SrcWbk.Sheets("JUL").Range("b4:ai17").Copy DestWbk.Sheets("62nd").Range("b4:ai17")
SrcWbk.Close False
End Sub
Bookmarks