Active code Question

[Javi]

How could I have this code referred to the active sheet not the ("Analyzer - Calculator)?

Sub Convert_Data_2003()
'
' Convert_Data_2003 Macro
'
    Dim my_range As Range
     
    With Worksheets("Analyzer - Calculator")
         
        Set my_range = .Range("G5:G10000")
        my_range.Formula = _
        "=This_where_My_Formula_Will_Be_input"
 
End With
'
End Sub

Thanks for looking at.

 

[njimack]

Sub Conver_Data_2003()
Sheets("Analyzer - Calculator").Range("G5:G10000").Formula = "=This_Is_Where_My_Formula_Will_Be_Input"
End Sub

 

[Javi]

The below is what worked... Thanks for looking at.

Sub Convert_Data_2003()
'
' Convert_Data_2003 Macro
'
    Dim my_range As Range
     
   [COLOR=red]With Application.ActiveSheet[/COLOR]
<!-- / message -->         
        Set my_range = .Range("G5:G10000")
        my_range.Formula = _
        "=This_where_My_Formula_Will_Be_input"

 

[njimack]

Sorry, I misread your original post. Corrected version of my code below:

Sub Convert_Data_2003()
Range("G5:G10000").Formula = "=This_Is_Where_My_Formula_Will_Be_Input"
End Sub