Thanks again Tom .. will try it out .. Abay


"Tom Ogilvy" wrote in message
...
Sub Uhrs()
'
' Uhrs Macro
' Macro recorded 7/3/05 by Abay
' Keyboard Shortcut: Ctrl+h
'
ActiveSheet.Previous.Range("B29").Copy
Selection.PasteSpecial Paste:=xlValues, _
Operation:=xlNone, _
SkipBlanks:=False, _
Transpose:=False
End Sub

Is Shorter and should work. You should avoid selecting as much as
possible.
It just slows things down.

--
Regards,
Tom Ogilvy


"Abay" wrote in message
...
I finally got it to work from the code below:

Sub Uhrs()
'
' Uhrs Macro
' Macro recorded 7/3/05 by Abay
' Keyboard Shortcut: Ctrl+h
'
ActiveSheet.Previous.Select
Range("B29").Select
Selection.Copy
ActiveSheet.Next.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone,
SkipBlanks:=
_
False, Transpose:=False
End Sub

Many thanks again for your help Tom & Alan you pointed me in the right
direction.

Much appreciated!

Abay