Global StatsRow
Sub DisplayStatsForm()
Dim StatsRow As Integer
Sheets("MarketHistory").Activate
StatsRow = ActiveCell.Row
Load MarketStatsForm
MarketStatsForm.StatsRowBox.Value = StatsRow
MarketStatsForm.GenStatsButton.SetFocus
MarketStatsForm.Show
End Sub