if sheet 9 exists, clear it otherwise create one

[asdzxc]

run macro1 and note that the below code is not working
If Not sh Is Nothing Then

[sktneer]

You may try this.....

Please Login or Register  to view this content.

[asdzxc]

sloved with thanks

[sktneer]

You're welcome.
If that takes care of your question, please mark your thread as Solved by selecting Thread Tools (just above your first post) --> Mark thread as solved.
Moreover you may also click on * (star) to Add Reputation if the solution provided helped you. This is another way to say thanks.

[asdzxc]

[QUOTE=sktneer;3818980]You may try this.....
[CODE]
Sub Macro1()
Dim sh As Worksheet
On Error Resume Next
Set sh = Worksheets("Sheet9")
On Error GoTo 0
If Not sh Is Nothing Then
sh.UsedRange.ClearContents
Sheets("Sheet1").Range("A:B").Copy sh.Range("A1")
Else

plse see Snap1.png
if run macro from sheet named djia, it is not working

[sktneer]

In that case you may use the code like this.....

Please Login or Register  to view this content.

[SamT]

Cross posted: http://www.vbaexpress.com/forum/show...ise-create-one