How do I create a sub function
 

How do I create a function that is sent two variables. I want it be sen
a variable called i and another FinalRow. Then I want it to do it'
thing. I want to be able to call this function at anytime in my macr
by just typing FunctionName(i,FinalRow). Here what I want to b
included in my function

n = i
For n = i To FinalRow
If (Range("A" & n).Value) = "" And (Range("B" & n).Value) = 1 An
(Range("C" & n).Value) = 1 And (Range("D" & n).Value) = "" Then
Rows(n & ":" & n).Cut
Rows(i & ":" & i).Insert Shift:=xlDown
End If
Next n

Thank yo

--
Message posted from http://www.ExcelForum.com

How do I create a sub function
 

Function MyFunction(I As Integer, FinalRow As Integer) As String

Your code here
MyFunction = Result
End Function

But I think what you want is something else because a function is used for
returning a value.
What you might want is a Sub.

Public Sub MySub(I As Integer, FinalRow As Integer)
Your Code Here
End Sub

"atoth22 " wrote in message
...
How do I create a function that is sent two variables. I want it be sent
a variable called i and another FinalRow. Then I want it to do it's
thing. I want to be able to call this function at anytime in my macro
by just typing FunctionName(i,FinalRow). Here what I want to be
included in my function

n = i
For n = i To FinalRow
If (Range("A" & n).Value) = "" And (Range("B" & n).Value) = 1 And
(Range("C" & n).Value) = 1 And (Range("D" & n).Value) = "" Then
Rows(n & ":" & n).Cut
Rows(i & ":" & i).Insert Shift:=xlDown
End If
Next n

Thank you


---
Message posted from http://www.ExcelForum.com/