Hi This seems to work, until you put the copy and paste element in it. Does any one know why?? And a solution to this. Also a shorter code would be great.
[Code}Sub Drawdowns()
Range("Draw1").Find(what:="#", after:=ActiveCell, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False).Activate
ActiveCell.Offset(0, -1).Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto reference:="DD1_Home"
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub[/code]
[Code}Sub Drawdowns()
Range("Draw1").Find(what:="#", after:=ActiveCell, LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False).Activate
ActiveCell.Offset(0, -1).Select
Application.CutCopyMode = False
Selection.Copy
Application.Goto reference:="DD1_Home"
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub[/code]