Sub update()
'
' update Macro
' Macro recorded 14/04/2007 by Frank L. Ludwig
'
' Keyboard Shortcut: Ctrl+u
'
Range("J1").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D3:D19").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("F3:F19").Select
Selection.ClearContents
End Sub
Users browsing this forum: No registered users and 8 guests