VBA macro til at printe rapporter

Jeg proever at lave en vba user form der aabner en msessagebox, hvor man kan vaelge mellem 4 forskellige rapporter(et eller flere valg). Mit problem opstaar naar macroen ud fra valgte checkboxes skal markere flere forskellige omraader. Lige nu markerer macroen kun den sidste i raaken af vaelge checkboxes. Jeg bruger nedenstaaende macro som givesvis kan goeres mere elegant samt jo ikke virker godt nok.

Private Sub CommandButton1_Click()

If Optimum.Value = True Then
Sheets("Report").Select
Range("b2:k31").Select
End If
If Breakpoint.Value = True Then
Sheets("Report - Breakpoint").Select
Range("b2:k31").Select
End If
If Ocean.Value = True Then
Sheets("Report - Breakpoint").Select
Range("m2:v31").Select
End If
If Gateway.Value = True Then
Sheets("Report - Breakpoint").Select
Range("x2:ag31").Select
End If

End Sub


Hvad skal jeg goere?
Tak