Med ny PC er jeg opdateret til office16 (før office13)
Her er koden
Sub indkøb()
'
' Md1 Makro
' Makro indspillet 25-09-2013 af bruger
'
Sheets("indkøb").Select
' Range("d5:" & [H3]).Select
Range("d5:f20").Select
Selection.Copy
Sheets("MD").Select
ActiveWindow.SmallScroll Down:=0
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
' Calculate
End Sub
' Range("d5:" & [H3]).Select virkede i office13 hvor det indirekte opslag [H3] f.eks er F20, som vist i
den efterfølgende linje (den linje er kun med for test)
I office16 stopper VBA således
Sheets("indkøb").Select
Range("d5:" & [H3]).Select
ved [H3]
Er der nogen der kan hjælpe
MVH
Knud