Sub LegendConcert()
Sheets("EventListing").Select
x = 5
Do While Cells(x, 3).Value <> "999"
If Cells(x, 3) = "Concert" Then
Call Concert
Loop
End Sub
When trying to run this macro, I get told that the Loop does not have a Do command.
Can anyone help?
Sheets("EventListing").Select
x = 5
Do While Cells(x, 3).Value <> "999"
If Cells(x, 3) = "Concert" Then
Call Concert
Loop
End Sub
When trying to run this macro, I get told that the Loop does not have a Do command.
Can anyone help?