Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Show chart

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