Syntax problem with Autofill

Hi everyone,

I am having a bit of trouble converting code that was initially recorded a while back as a macro to executable code from a CommandButton_Click.

It is trying to use autofill from cell A1 to Cell CV100 (a 100x100 grid). I am pretty sure I am missing something in the syntax needed for autofill, any help would be awesome! :D

Original code:

Range("A1").Select
Selection.AutoFill Destination:=Range("A1:CV1"), Type:=xlFillDefault
Range("A1:CV1").Select
Selection.AutoFill Destination:=Range("A1:CV100"), Type:=xlFillDefault

This is what I tried to do:

ActiveWorkbook.Sheets("Graphing").Range("A1").AutoFill Destination:=Range("A1:CV1"), Type:=xlFillDefault
ActiveWorkbook.Sheets("Graphing").Range("A1:CV100").AutoFill Destination:=Range("A1:CV100"), Type:=xlFillDefault

The second line is wrong, you are filling the same range, but the first line works.

Sub test()

 With Sheets("Graphing")

   .Range("A1").AutoFill .Range("A1:CV1"), Type:=xlFillDefault
   .Range("A1:CV100").AutoFill .Range("A1:CV100"), Type:=xlFillDefault
 End With
End Sub