Hi was writing a VB for a commandButton that I could click that perform Copy and Paste.

But I get an Error of Runtime Error"1004", applicaition define or Range Define Error.

The Range I am pointing to is at another sheet in the same workbook.

I can run this without error if i'm not using a Command Button.

Here is my code:

Private Sub CommandButton2_Click()

If (Range("Current_Period") = 1) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 2) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D29").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 3) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D39").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 4) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D49").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 5) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D59").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 6) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D69").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


ElseIf (Range("Current_Period") = 7) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D79").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


ElseIf (Range("Current_Period") = 8) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D89").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


ElseIf (Range("Current_Period") = 9) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D99").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 10) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D109").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 11) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D119").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 12) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D129").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End If

End Sub

Private Sub UpdateYTD_Click()

'
' UpdateYTDFD Macro
' Macro recorded 27/11/2006 by AUKwokTi
'

'Copy the monthly figures into the YTD Sheet for fixed Distribution

'

If (Range("Current_Period") = 1) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D19").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 2) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D29").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 3) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D39").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 4) Then

Sheets("Page 1.0").Select
Range("C5:H14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D49").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 5) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D59").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 6) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D69").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


ElseIf (Range("Current_Period") = 7) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D79").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


ElseIf (Range("Current_Period") = 8) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D89").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


ElseIf (Range("Current_Period") = 9) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D99").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 10) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D109").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 11) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D119").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

ElseIf (Range("Current_Period") = 12) Then

Sheets("Page 1.0").Select
Range("C5:J14").Select
Selection.Copy
Sheets("Page 10.0").Select
Range("D129").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End If


'
End Sub

I don't know what i have done wrong,please help.!!