This does NOT leave a Pastable Range

[Mackeral]

The Code

Sub Data_CutCopy_Sub(Sheet_Spec, Rng, Start_Row, Mode_ As CutCopy_Mode)
    ' Common code for Cut/Copy.
    ' 4/30/148 Created. WML
    
    Prog = "Data_CutCopy_Sub"
    
    Call Sheet_Arg(Sheet_Spec, SHEET, Sheet_Name)
    Rng = [COLOR=#574123]Range("C1293:D1293")  ' <-- To make explicit what "Rng" is.[/COLOR]
                      
    With SHEET
        Select Case Mode_
            Case ccm_Copy
                Range(Rng).Select   ' <-- This is the code that executes when I run this macro.
                Selection.Copy
            Case ccm_Cut
                .Selection Cut
        End Select
    End With


End Sub ' Data_CutCopy

I want it to leave the selected range with the dotted line around it that means that it can be pasted later. This code does select it but does not leave as pasteable (with the dotted line around it).

This code does what I want:

    Range("C1293:D1293").Select
    Selection.Copy

Is the problem the "With SHEET"?

Thanks for your help, Mac

 

[jproffer]

After Sheet_Arg is finished running, the variables could be reset to nothing, depending on how and where you have them declared, so that could be the problem.

If you post all relevant code, including anything called by this code, someone can probably help you out.

 

[Scott Huish]

You need to define Range as a Range object and use Set. However the Select statement is completely unnecessary.

I'm not sure how you're getting the value for SHEET, but if you are going to use With you need a . before the properties.

For example:

Sub test()
Dim Rng As Range
Dim Sheet As Worksheet
Set Sheet = Worksheets("Sheet2")
With Sheet
    Set Rng = .Range("C1293:D1293")
    Rng.Copy
End With
End Sub

 

[Mackeral]

Solved and thanks Scott.

Mac