Como faço para rodar essa macro na planilha que está aberta?

A macro exclui colunas que não preciso, excluindo todas elas, exceto aquelas com nomes especificados.

Não consigo descobrir (e deve ser fácil) como fazê-lo funcionar em qualquer planilha, não em uma com um nome específico. A macro é armazenada em personal.xlsb. Como faço isso?

Sub DeleteUnnecessaryColumns()

Dim currentSht As Worksheet
Dim i As Long, j As Long
Dim lastRow As Long, lastCol As Long
Dim startCell As Range
Dim colnames
Dim here As Boolean

colnames = Array("first column I want to keep", "Second column I want to keep", "goes on for ages")

Set currentSht = ActiveWorkbook.Sheets("export")
Set startCell = currentSht.Range("A1")

lastRow = startCell.SpecialCells(xlCellTypeLastCell).Row
lastCol = startCell.SpecialCells(xlCellTypeLastCell).Column

With currentSht
    For i = lastCol To 1 Step -1
        here = False
        For j = LBound(colnames) To UBound(colnames)
            If .Cells(1, i).Value = colnames(j) Then
                here = True
                Exit For
            End If
        Next j
        If Not here Then
            Columns(i).EntireColumn.Delete
        End If
    Next i
End With

End Sub