본문 바로가기
만드는 이야기/VBA

vba) 시트 존재 확인후 추가

by LillyLt 2014. 3. 7.

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