If you just want to activate the sheet:
Sheets("Sheet1").Activate
or
Sheets("Sheet1").Select
If you just want to work on Sheet1 without activating:
With Sheets("Sheet1")
.Range("A1").Text = "Hello!"
.Range("C2:E5").ClearContents
End With
or you could write code like:
Sheets("Sheet1").Range("A1").Text = "Hello!"
Sheets("Sheet1").Range("C2:E5").ClearContents
--
steveB
Remove "AYN" from email to respond
"BigDave" wrote in
message ...
Here's the code I'm dealing with:
Dim varAnswer As String
varAnswer = MsgBox("This cannot be undone." & Chr(10) & Chr(10) &
"Edits to this workbook my only be entered into your Data Sheet
manually once the current data is compiled.", vbOKCancel)
If varAnswer = vbCancel Then
Exit Sub
End If
Dim Lrow As Long
Dim CalcMode As Long
Dim StartRow As Long
Dim EndRow As Long
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
WITH WORKSHEETS(\"SHEET1\").ACTIVATE
END WITH
With ActiveSheet
.DisplayPageBreaks = False
StartRow = 2
EndRow = 21
For Lrow = EndRow To StartRow Step -1
If IsError(.Cells(Lrow, "a").Value) Then
'Do nothing, This avoid a error if there is a error in the cell
ElseIf .Cells(Lrow, "A").Value <= " " Then .Rows(Lrow).Delete
'This will delete the row if the cell is empty
End If
Next
End With
With Application
.ScreenUpdating = True
.Calculation = CalcMode
End With
Range("A2:m21").Select
Selection.copy
With Worksheets("sheet2").Activate
End With
End Sub
The bold text is what is the problem. This macro is tied to a
commandbutton on sheet 2. The code gets throught the first message box
and then throws a Type9 error.
I want the macro to work on the data in Sheet1, but I'm stumped.
Thoughts?
--
BigDave
------------------------------------------------------------------------
BigDave's Profile:
http://www.excelforum.com/member.php...fo&userid=7741
View this thread: http://www.excelforum.com/showthread...hreadid=378323