Basic Question and Help

[texas22]

Here is what I am trying to do I have a spreadsheet that has the column headings of song title, album name, artist name, and genre. I am trying to write a procedure that prompts the user to enter the number of songs to enter into the list and then loops through a repetition structure to obtain the song title, album name, artist name, and the genre. The structure adds this information to the appropriate rows, beginning with Row 5, in columns A, B, C, and D.

Here is what I have so far can anyone help

 
Dim counter, numSongs As Integer
numSongs = Val(InputBox("Enter the number of songs"))
counter = 1
While counter <= numSongs
    Row(counter + 5).Column(A) = InputBox("Enter the Title")
    Row(counter + 5).Column(B) = InputBox("Enter the Album Name")
    Row(counter + 5).Column(C) = InputBox("Enter the Artist Name")
    Row(counter + 5).Column(D) = InputBox("Enter the Genre")
Loop
 
 

Am I on the right track and also when I try to compile it, it says "invalid outside procedure" and it hightlights the "Enter number of songs"

[Daine]

Here is what I am trying to do I have a spreadsheet that has the column headings of song title, album name, artist name, and genre. I am trying to write a procedure that prompts the user to enter the number of songs to enter into the list and then loops through a repetition structure to obtain the song title, album name, artist name, and the genre. The structure adds this information to the appropriate rows, beginning with Row 5, in columns A, B, C, and D.

Here is what I have so far can anyone help

 
Dim counter, numSongs As Integer
numSongs = Val(InputBox("Enter the number of songs"))
counter = 1
While counter <= numSongs
    Row(counter + 5).Column(A) = InputBox("Enter the Title")
    Row(counter + 5).Column(B) = InputBox("Enter the Album Name")
    Row(counter + 5).Column(C) = InputBox("Enter the Artist Name")
    Row(counter + 5).Column(D) = InputBox("Enter the Genre")
Loop
 
 

Am I on the right track and also when I try to compile it, it says "invalid outside procedure" and it hightlights the "Enter number of songs"

If that is your complete code then you need to put it inside a sub or function.

Example:
Private Sub subname()

Code

End Sub

Use a function instead of a sub if you are returning values.

If thats only a part of your code then I'm not sure.