Macro en libro con varias hojas

Hola, buen día
Su ayuda por favor con lo siguiente: tengo en un solo archivo 31 hojas que contienen información para cada unos de los días del mes. Cada vez que ejecuto la macro en una hoja diferente tengo que estar cambiando el número al que correspone la hoja. ¿Como hago para que la ejecute en cualquier hoja?
ActiveWorkbook.Worksheets("26").Sort.SortFields.Add Key:=Range("I6:I500"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("26").Sort
.SetRange Range("A5:AJ500")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

{"Lat":38.272688535981,"Lng":-99.84375}