Dim iSheet As Integer
For iSheet = 1 To Worksheets.Count
If Sheets(iSheet).Visible = True Then
Sheets(iSheet).Select
Exit For
End If
Next iSheet'메모' 카테고리의 다른 글
| excel vba case insensitive...펌 (0) | 2014.02.20 |
|---|---|
| 윈도우 7 윈도우 8 속도 비교...펌 (0) | 2014.02.18 |
| aero peek기능 끄기...펌 (0) | 2014.02.18 |
| vba dictionary object...펌 (0) | 2014.02.17 |
| cleanmgr/sageset:50 /sagerun:50 ...펌 (0) | 2014.02.12 |