Sub SelectSheets() For Each sht In Sheets If TypeName(sht) = "Chart" Then sht.Select False Next shtEnd Sub
Reader Comments