Excel VisualBasic Script

Sub ShowChart()
    UserRow = ActiveCell.Row
    If UserRow < 2 Or IsEmpty(Cells(UserRow, 1)) Then
        MsgBox "Move the cell cursor to a row that contains data."
        Exit Sub
    End If
    CreateChart (UserRow)
End Sub