Snasui Excel Forum

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rowNumberValue As Integer
    Dim columnNumberValue As Integer
    Dim sd As Range
    Dim po As Range
    Application.EnableEvents = False
    rowNumberValue = ActiveCell.Row
    columnNumberValue = ActiveCell.Column
    ActiveSheet.Range(Cells(rowNumberValue, columnNumberValue), Cells(rowNumberValue, columnNumberValue + 5)).Select
    Selection.Copy
    Set po = Worksheets("PrintOut").Range("A65536").End(xlUp).Offset(1, 0)
    po.PasteSpecial xlPasteValues
    ActiveWorkbook.Save
    Selection.Delete Shift:=xlUp
    Application.EnableEvents = True
End Sub