Active sheet instead of a "sheet1" for Macro

[Pantera]

I have this code in a macro:
If Sheets("Sheet1").[A1] = True Then
ActiveWindow.SmallScroll Down:=-9
Application.Goto Reference:="R17C3"
Range("C11:C17").Select
Range("C17").Activate
Selection.Copy

My questions is how do I make this macro work in any worksheet not
only only in sheet1, what do i have to change from "Sheet1" to make it
work.
thank you,

Pamela

 

[Dave Peterson]

If Activesheet.range("a1").value = True Then

I have this code in a macro:
If Sheets("Sheet1").[A1] = True Then
ActiveWindow.SmallScroll Down:=-9
Application.Goto Reference:="R17C3"
Range("C11:C17").Select
Range("C17").Activate
Selection.Copy

My questions is how do I make this macro work in any worksheet not
only only in sheet1, what do i have to change from "Sheet1" to make it
work.
thank you,

Pamela

 

[Don Guillett]

Sub copyif1()
With ActiveSheet
If .Range("A1") = True Then
.Range("C11:C17").Copy .Range("d5")
End If
End Sub

 

[JE McGimpsey]

One way:

If ActiveSheet.Range("A1").Value = True Then
ActiveSheet.Range("C11:C7").Copy
End If

Or, equivalently:

With ActiveSheet
If .Range("A1").Value = True Then .Range("C11:C17").Copy
End With

 

[Pantera]

One way:

   If ActiveSheet.Range("A1").Value = True Then
         ActiveSheet.Range("C11:C7").Copy
   End If

Or, equivalently:

   With ActiveSheet
      If .Range("A1").Value = True Then .Range("C11:C17").Copy
   End With

I have this code in a macro:
If Sheets("Sheet1").[A1] = True Then
    ActiveWindow.SmallScroll Down:=-9
    Application.Goto Reference:="R17C3"
    Range("C11:C17").Select
    Range("C17").Activate
    Selection.Copy

My questions is how do I make this macro work in any worksheet not
only only in sheet1, what do i have to change from "Sheet1" to make it
work.
thank you,

Pamela- Hide quoted text -

- Show quoted text -

Thank you!!! works like a charm.
Pamela

 

[Shane Devenshire]

Hi,

A few general point alluded to in the earlier responses:

1. You don't need to select a range to work with it.
2. The recorder is verbose, although it is a great starting point you can
often eliminate much of what it generates.

So you macro becomes

If [A1] = True Then
[C11:C17].Copy [X1]
.... more code
End if
End With

This macro assume that you want to copy the data to the range starting in
cell X1. Also, it assumes that you are in the same sheet as the cell A1. In
which case there is no need to reference any sheet since this code assumes
the active sheet.

 

[Pantera]

If Activesheet.range("a1").value = True Then

I have this code in a macro:
If Sheets("Sheet1").[A1] = True Then
    ActiveWindow.SmallScroll Down:=-9
    Application.Goto Reference:="R17C3"
    Range("C11:C17").Select
    Range("C17").Activate
    Selection.Copy

My questions is how do I make this macro work in any worksheet not
only only in sheet1, what do i have to change from "Sheet1" to make it
work.
thank you,

Pamela

--

Dave Peterson- Hide quoted text -

- Show quoted text -

Thanks!!!

 

[Jarek Kujawa]

or briefly:

If ActiveSheet.Range("A1").Value Then