ElseIf wird nicht abgearbeitet

Folgende ElseIf Schleife wird nicht abgearbeitet. Egal welche Zelle selktiert, ist es wird immer c7 selektiert.

Sub Drucken()
If Range("b15").Select Then
Range("c7").Select
'ActiveSheet.PrintOut From:=1, To:=1
ElseIf Range("b37").Select Then
Range("c29").Select
'ActiveSheet.PrintOut From:=2, To:=2
ElseIf Range("b59").Select Then
Range("c51").Select
'ActiveSheet.PrintOut From:=3, To:=3
ElseIf Range("b81").Select Then
Range("c73").Select
'ActiveSheet.PrintOut From:=4, To:=4

End If
End Sub

Danke