DateString[]

SetDirectory[NotebookDirectory[]]

readXY[file_] := Module[{data}, 
data = Import[file];
data = Select[data, VectorQ[#, NumericQ] &]; (* Don't include comment or header lines *)
data]

data = readXY["I2-2024-02-26-490-610-0.01nm-0.2s.csv"];

ListLinePlot[data, ImageSize -> 1200, AspectRatio-> 1/3, AxesStyle -> Larger, PlotRange -> All, AxesLabel -> {"wavelength (nm)", "Counts"}]

Manipulate[
d1 = Select[data, min <= #[[1]] <=  max &];
ListPlot[d1, ImageSize->Scaled[0.9], AspectRatio->2/3, AxesStyle->Larger, AxesLabel->{"wavelength (nm)", "Counts"}, PlotRange -> All, PlotLegends->Automatic], 
{{min, 550}, 200, 600, 1, Appearance->"Open"},
 {{max, 560}, 210, 600, 1, Appearance->"Open"}]