I must be missing something

[Araziel]

I have been working on this for over 2 hours but still can't get it to see that the value in B23 is greater then 0 help what am I missing???

Sub RVTR2()

Sheets("x").Select
If B23 > 0 Then

Sheets("y").Select
Selection.AutoFilter Field:=4, Criteria1:=">0", Operator:=xlAnd
Range("C3:I3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Open Filename:= _
"xy"
Range("C3").Select
Selection.Insert Shift:=xlDown
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("C3").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Selection.AutoFilter Field:=4
Sheets("y").Select
Range("A18").Select

End If

Sheets("y").Select
Range("C3:I3").Select
Selection.Copy
Workbooks.Open Filename:= _
"xy"
Range("C3").Select
Selection.Insert
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("C3").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Selection.AutoFilter Field:=4
Sheets("y").Select
Range("A18").Select
End Sub

 

[shg]

If Range("B23").Value > 0 Then

If you put Option Explicit at the top of every module, the VBE would tell you that B23 is an undeclared variable, which tells you something is amiss.

 

[Araziel]

OMG I must be way to tired to have missed that.

Thanks you saved me from pulling out all my hair over something sooo simple.