Sub AddWorksheet(ByVal WorksheetName As String)
If WorksheetExists(WorksheetName) = False Then
Worksheets.Add().name = WorksheetName
End If
End Sub
Function WorksheetExists(ByVal WorksheetName As String) As Boolean
On Error Resume Next
WorksheetExists = (Sheets(WorksheetName).name <> "")
On Error GoTo 0
End Function
'만드는 이야기 > VBA' 카테고리의 다른 글
vba)현재 통합문서의 모든시트의 표서식으로 만든 모든표 범위로 변환 (0) | 2014.03.07 |
---|---|
vba자작) 월마감 집계표 (0) | 2014.03.07 |
엑셀vba) ParamArray : 인수 갯수 제한 없는 배열 함수로 넘기기 (0) | 2014.03.07 |
엑셀vba) 문자 배열 함수로 넘기기, 시트 여러개 랜덤 위치로 이동 (0) | 2014.03.07 |
엑셀vba) 다음시트 이전시트 활성화 , 인쇄 미리보기 (0) | 2014.03.07 |