Various pasting issues

Correction to my previous post. Actually I do in fact have Range(A1").Select.

Actually I am now getting a new error.

I changed the PasteSpecial to Paste and now encounter an "object Doesn't support this property or method"

I have tried to use

CPSelection.PasteSpecial Paste:=xlPasteValues

and I recieve a "PasteSpecial method Rangle Class Failed"

MarvivP

Its dimes as :

Dim CPSelection As Range.

It's done so gloablly. Right below the Option Explicit. Could that be the cause?

I am still getting an error here. The first error I get indicates that the paste method is not supported? When I used th immediate window :

? CPSelection

to investigate, it informs me that the "Data on the clipboard is not the same size.......". Any further sugggestions?

Option Explicit
Dim CPSelection As Range
Public Sub CommandButton1_Click()
    Dim Wbk As Workbook
    Dim strFilepath As String
    Dim strASOFDATE As String
    Dim strFilePrefix As String
    Dim strFileFullName As String
     
    strFilepath = "C:\Users\XXXXXXXX\Desktop\YYYYYY\"
    strFilePrefix = "mtm_report_asof_"

    strASOFDATE = Me.txtDateBox.Value
    strASOFDATE = Format(Me.txtDateBox.Value, "yyyymmdd")

    strFileFullName = strFilepath & strFilePrefix & strASOFDATE & ".xls"

    Set Wbk = Workbooks.Open(strFileFullName)
        Worksheets("MTM Detail").Activate
               
    MsgBox "Please highlight (or select) the area you want with your mouse"
    
    Set CPSelection = Application.InputBox(prompt:="Please highlight (or select) the area you want with your mouse", Type:=8)
    CPSelection.Select
    
    With ActiveSheet

    End With

End Sub
Public Sub CommandButton2_Click()
    Dim strCPName As String
    Dim Wbk As Workbook
    Dim strFilepath As String
    Dim strASOFDATE As String
    Dim strFilePrefix As String
    Dim strFileFullName As String
  
    strFilepath = "C:\Users\XXXXXXXX\Desktop\YYYYYYY\"
    strFilePrefix = "mtm_report_asof_"
    
    strCPName = Me.txtCPNameBox.Value
    
    strFileFullName = strFilepath & strCPName & "_mtm_portfolio_report" & ".xls"
    
    Set Wbk = Workbooks.Add
    Wbk.SaveAs Filename:=strFileFullName
    Set Wbk = Workbooks.Open(strFileFullName)
    
    With ActiveSheet
        Range("A1").Select
        CPSelection.PasteSpecial Paste:=xlPasteValues
    End With
       
End Sub

This is impressive but this part is showing up red

  workbooks(txtCPNameBox.Text & "_mtm_portfolio_report.xls").sheets(1).cells(1).resize(range(c01).rows.count,range(c01).columns.count)=
workbooks(mtm_report_asof_" & Format(txtDateBox.Text, "yyyymmdd") & ".xls").sheets("MTM Detail").range(c01).value

So it doesn't quite run. Its indicating that a variable is undefined. But it seems as though all variables are defined?

Option Explicit
Public Sub CommandButton1_Click()
  c00 = "N:\XXXXXXXX\Portfolio list\"
  c01 = txtCPNameBox.Text & "_mtm_portfolio_report.xls"
  c02 = "mtm_report_asof_" & Format(txtDateBox.Text, "yyyymmdd") & ".xls"

  With Workbooks.Add
    .SaveAs c00 & c01
  End With
  Workbooks.Open c00 & c02

  c03 = Application.InputBox("Please highlight (or select) the area you want with your mouse", 8).Address

  Workbooks(c01).Sheets(1).Cells(1).Resize(Range(c03).Rows.Count, Range(c03).Columns.Count) = Workbooks(c02).Sheets("MTM Detail").Range(c03).Value
End Sub

Now c00 is highlighted in blue, but Public Sub CommandButton1_Click()
is highlighted in yellow.

Thanks. I am not sure your code will run. Maybe take a double look at it?