Mathematica (I use 10.1) has a function FindPeaks that should provide good starting values for mu`
nlm = NonlinearModelFit[data,
A 1/(\[Sigma] Sqrt[2. \[Pi]])
Exp[-(1./2.) ((x - \[Mu])/\[Sigma])^2], {{\[Sigma], 100.}, {\[Mu],
FindPeaks[data, 80., 0.2, 5000.][[1, 1]]}, {A, 200}}, x]