Hjælp ti redigering/ tilpas makro

Sub SetShortcutKeys()
With Application
.OnKey Key:="^+K", Procedure:="YourMacro"
End With
End Sub



Key:="^+K" sætter det til CTL+SHIFT+K, så det er det du skal rette til at passe til hvad end du vil have det til

YourMacro er navnet på din macro

Hej m_claus

Jeg forstår ikke din kode, jeg er nu heller ikke nogen ørn til VBA.

Det jeg gerne vil, er at når curseren forlader celle A1, enten ved enter, tabulator eller piletasterne så skal makroen afspilles. Kan denne eksta funktion ikke sættes ind i denne makro?

Sub navngivArk()  'eller i forbindelse med "Event"
    With ActiveSheet
        .Name = .Range("A1")
    End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ActiveSheet.Name = Target.Value
    End If
End Sub

Hej store-morten
Perfekt, 1000 tak. Smider du lige et svar

Velbekomme.

Hurtig afregning.
Tak for point.  :-)

Selv tak, der er jo nogen der er morgenfriske;-)