Hi all,

I recorded the macro below which runs fine until I attach
it to commandbutton6 on my spreadsheet

I get the following error message on

Range ("A1"). Select

"Select method of range class failed"

I have included macro below, any ideas? Thanks for your
help !

Michael


Private Sub CommandButton6_Click()
With ActiveSheet
Cells.Select
Selection.Copy
Sheets("Cashflow Chart Sheet").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlAll,
Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlValues,
Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False
Range("A2:I7").Select
Application.CutCopyMode = False
Selection.Clear
ActiveWindow.SmallScroll Down:=13
Range("A29:I29").Select
Selection.ClearContents
ActiveWindow.LargeScroll Down:=-1
Range("D13").Select
Selection.ClearContents
Range("A1").Select
End With
End Sub