Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Why R/T error 1004 - 7 rows from the end of this code
Private Sub Workbook_Open()
ans = MsgBox("Would you like to CLEAR the WorkingReport Sheet at this time?", vbYesNo) If ans = vbNo Then MsgBox "The WorkingReport has not been updated, be CAREFUL!!" Exit Sub Else Worksheets("WorkingReport").Cells.ClearContents Worksheets("WorkingReport").Range("Z1").Copy 'copies an unformatted cell Worksheets("WorkingReport").Range("A1:Q300").Paste Special Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False With Worksheets("WorkingReport") .Range("A1").Select ' WHY R/T 1004 Here???????????? End With Application.CutCopyMode = False Worksheets("Start Here").Activate Range("C4").Select End If End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
runtime error code 1004 | Excel Worksheet Functions | |||
runtime error 1004: how can i use rows. | Excel Programming | |||
Code Run-time error '1004' | Excel Programming | |||
VBA code to save gives error 1004??? | Excel Programming |