If [Block1] is more than a few lines, I would put its code in a subroutine
and then call that subroutine from this code...

......
......
If TypeOf Z Is Range Then
If Z.Cells.Count 1 Then
[Block 2]
Else
Call Block1
End If
Else
Call Block1
End If
.......
.......
End Sub|Function

Sub Block1()
<<code
End Sub

Include an appropriate argument list if the Block1 subroutine is dependent
on local variables.

Rick


"Dietmar M. Kehrmann" wrote in message
...


But I need

If TypeOf Z Is Range Then
If Z.Cells.Count 1 Then
[Block 2]
Else
[Block 1]
End If
Else
[Block 1]
End If

and then [Block 1] appears two times. Ugly ^^