Macro to open automatically a 3D map

I use this macro to open 3D maps in Excel from a button on a worksheet (checks the version then mimics pressing ALT and using the keyboard):

Sub Launch3DMap()
' # Uses SendKeys method to open 3D Maps in Excel  #
' # Suggestion: Create a button on the <Developer> #
' #        tab and assign this macro to it         #
' #            Tim Austin - 3/14/2025              #

    Dim strVersion As String
    strVersion = Application.Version
    strVersion = Left(strVersion, InStr(strVersion, ".") - 1)
    
    MsgBox "Remember to Click on <Refresh Data> in the 3D Map"
    If 1 * strVersion < 16 Then
        SendKeys "%nsmo~"
        SendKeys "%"
        SendKeys "N"
        SendKeys "SM"
        SendKeys "O"
    Else
        SendKeys "%adm3o~"
        SendKeys "%"
        SendKeys "A"
        SendKeys "DM"
        SendKeys "3"
        SendKeys "O"
    End If
    
End Sub