if statement what's wrong?

[earp_]

Hi, i have this

If (valueCellMyMacro1<> 0) Then
Worksheets("daily1").Range(colSheet2MyMacro1).End(xlUp).Offset(1, 0).Value = valueCellMyMacro1
End If

where

Dim valueCellMyMacro1 As Range
Set valueCellMyMacro1 = Worksheets("Sheet1").Range("B2")

that should say that "if the value in 'valueCellMyMacro1' is NOT zero then assign the value 'valueCellMyMacro1 ' to the Sheet 'daily1 with range that goes from the top to the buttom'

Now, if i open another excel file I've got an error "run time erro '9' subscript out of range"

the second file has
QUOTE]
If (valueCellMyMacro2<> 0) Then
Worksheets("daily2").Range(colSheet2MyMacro2).End(xlUp).Offset(1, 0).Value = valueCellMyMacro2
End If
[/QUOTE]
where

Dim valueCellMyMacro2 As Range
Set valueCellMyMacro2 = Worksheets("Sheet1").Range("B2")

I will try now to put also the woorkbook, just in case.
But do you think that the problem is why i didn't put the Workbook?

 

[xenou]

This looks suspicious:
Range(colSheet2MyMacro2)

What is the value of colSheet2MyMacro2?


EDIT:
Isn't this the same problem:
http://www.mrexcel.com/forum/showthread.php?t=327832

 

[earp_]

it's just a number I don't want to add in my column the value 0, that's why i put that if

 

[erik.van.geit]

same question
http://www.mrexcel.com/forum/showthread.php?t=327832