Make this macro select active sheet

[smugglersblues]

How do I set this macro to the activesheet rather than a named sheet?

Sub FillBlanks()
    Dim Lastrow As Double
    'Fills Blank Cells with the Value of 0
    
    Worksheets("InputData").Activate
    
    'get Last row of data assume Column A has data on Lastrow
    Lastrow = Range("A65000").End(xlUp).Row
    'fill all blank cells within data range to 0
    Range("A3:A400" & Lastrow).SpecialCells(xlCellTypeBlanks).Value = "-"
End Sub

[ragavan.sridar1]

Just try using "Activesheet.select"

[barryleajo]

The sheet you are on is the ActiveSheet
Therefore just delete or comment-out the reference to

Worksheets("InputData").Activate

[smugglersblues]

barry your tip solved the problem. Thanks for the replies.

[barryleajo]

Pleasure.
Please mark your thread as SOLVED
barry