In[]:=
myTitle="Plot no. 1";​​SetOptions[ListLinePlot,PlotLabel->Style[myTitle,24,Bold,Red]];
In[]:=
ListLinePlot[{}]
Out[]=