Izbira področja (range) preko InputBox-a

[Fatso]

Dober večer,

za potrebe nadaljnjega izvajanja makra naj bi uporabnik izbral začetno in končno celico obsega (tako sem se zadeve lotil sam) ali pa bi označil obseg (tega se nisem znal lotiti).

Koda je taka:

Koda: Izberi vse

Sub Oznaci_obseg()

    Dim NaslVrst_PrvaCelica
    Dim NaslVrst_ZadnjaCelica
    Dim NaslovnaVrstica As Range

' uporabnik izbere prvo celico naslovne vrstice
    Set NaslVrst_PrvaCelica = Application.InputBox(Prompt:="Izberi začetno celico naslovne vrstice:", Type:=8)
' uporabnik izbere zadnjo celico naslovne vrstice
    Set NaslVrst_ZadnjaCelica = Application.InputBox(Prompt:="Izberi zadnjo celico naslovne vrstice:", Type:=8)
' določim naslovna vrstico
    Set NaslovnaVrstica = Range(NaslVrst_PrvaCelica, NaslVrst_ZadnjaCelica)
    Range(NaslovnaVrstica).Select   ' tukaj javi napako

End Sub

Na žalost sem obtičal na mestu in ne znam naprej. V fazi definiranja obsega na podlagi vnesenih podatkov in potem izbiranja tega istega obsega VBA javi naslednjo napako:
Run time error : '1004'
Method 'Range' of 'object' Global Failed

Prosim za pomoč/idejo.

Hvala in Lp,
Fatso

[cedra]

Vrstico

Koda: Izberi vse

Range(NaslovnaVrstica).Select   

popravite v

Koda: Izberi vse

NaslovnaVrstica.Select   

[Fatso]

Cedra,

uspešno uporabljeno.
Hvala lepa za pomoč.

Lp,
Fatso