Option Explicit
Sub uniformRndWithSeed()
    Dim n As Long, seedvalue As Variant, i As Long
    'lw@TvƃV[hl2DV[hl͕
    n = 100
    seedvalue = -1.5
        
    'VV[gɗo
    Rnd (seedvalue)
    Sheets.Add
    For i = 1 To n
        Cells(i, 1) = Rnd
    Next
    MsgBox ActiveSheet.Name & "" & n & "[0,1)̈l"
End Sub
