All

I am trying to call a function form within a sub, but VBA doesn't
accept the swapRows function and asks for a =. Why?

Dirk

Function swapRows(areaSwap1 As Range, areaSwap2 As Range)
' a lot of code
End Function

Sub schedule()
Dim ran As Range
Dim num As Integer

Set ran = InputBox("select range including heading for columns",
Type:=8)
num = ran.Rows.Count
For i = 2 To num
If isempty(ran(i, 2)) Then swapRows(ran.Row(i),ran.Row(i+1))
Next i

End Sub