gheyman
Well-known Member
- Joined
- Nov 14, 2005
- Messages
- 2,341
- Office Version
- 365
- Platform
- Windows
The code below will not allow me to paste special because the destination is a Merged cell ("L20:M20"). How do I change this code so that it Paste a value in L20?
Thanks
Thanks
Code:
Sub ReviseIHS()
'Comm_IHS_Code 3 Enter Quote Data
'*************************************************************
'Replace the IHS Code in 3 Enter Quote Data with selection
'*************************************************************
Application.CutCopyMode = False
Dim LR As Long
LR = Cells(Rows.Count, "C").End(xlUp).Row
If Intersect(ActiveCell, Range("C11:G" & LR)) Is Nothing Then
MsgBox "You must select a cell within the IHS Table. Select a valid Cell"
Exit Sub
End If
Sheets("Comm_IHS_Code").Range("D" & ActiveCell.Row).Copy
Sheets("3 Enter Quote Data").Range("L20").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = True
End Sub