I am using the BodePlot function to plot magnitude and phase of the function below:

BodePlot[(1 + s/10^6)/((1 + s/10^2)*(1 + s/10^12)), PlotRange -> All]

I got the plots as below. However, I want to see the magnitude and phase of that function for frequencies larger than 10^13 Hz (the red region as in the picture).

Could you tell me how to do that? I tried to modify the PlotRange function as below but it doesn't work.

BodePlot[(1 + s/10^6)/((1 + s/10^2)*(1 + s/10^12)), PlotRange -> {{0.1, 10^15}, {-100, 0}}]