Worksheets.Add --- IF it doesn't already exist
Somthing like this perhaps
dim wks as worksheet
on error resume next
set wks = sheets("This")
on error goto 0
if wks is nothing then
set wks = thisworkbook.worksheets.add
wks.name = "This"
end if
thisworkbook.activate
wks.select
--
HTH...
Jim Thomlinson
"Dan R." wrote:
I'm looping through some workbooks in a directory, then adding new
sheets to my active workbook. How can I test to make sure a worksheet
doesnt exist before I add it? And if it does exist how do I activate
that sheet? Something like this maybe?
If ThisWorkbook.Worksheets < Left$(bk.Name, 3) Then
Set sh2 = ThisWorkbook.Worksheets.Add
sh2.Name = Left$(bk.Name, 3)
' Do stuff with sh2
Else
Set sh2 = Left$(bk.Name, 3)
' Do stuff with sh2
End If
Thanks,
-- Dan
|