install codecs on garuda linux

sudo pacman -Sy gst-libav gst-plugins-base gst-plugins-good gst-plugins-bad gst-plugins-ugly ffmpeg


sudo pacman -Sy vlc



sudo pacman -S vlc-plugin-ffmpeg



sudo pacman -S vlc-plugin-x264



sudo pacman -S vlc-plugin-x265

warning: snapper-tools: local (1.3.1-1.6) is newer than chaotic-aur (1.3.1-1) solved in geruda linux

 downgraded the package using

sudo pacman -Syy snapper-tools

garuda-update file exists problem solved in geruda linux

sudo pacman -S dracut --overwrite="*"

sudo pacman -Syu

Things to do after installing rocky linux 9

rename the machine


$ sudo hostnamectl --static hostname "rockyserver"

pen drive not opening ,no ntfs support

$ sudo hostnamectl --static hostname "kickass-workstation"

install vlc

sudo dnf -y install epel-release 

sudo dnf upgrade 

sudo dnf install vlc

macro to delete very first sheet of all excel files in a folder

 Sub RenameSheets()
     Dim strFolder As String
     Dim strFile As String
     Dim wbk As Workbook
     Dim i As Long
     With Application.FileDialog(4) ' msoFileDialogFolderPicker
         ' Show dialog
         If .Show Then
             ' Assign selected folder to variable
             strFolder = .SelectedItems(1)
         Else
             Beep
             Exit Sub
         End If
     End With
     ' Append \ if necessary
     If Right(strFolder, 1) <> "\" Then
         strFolder = strFolder & "\"
     End If
     On Error GoTo ErrHandler
     ' Turn off screen updating and event handling
     Application.ScreenUpdating = False
     Application.EnableEvents = False
     ' Get first file name in folder
     strFile = Dir(strFolder & "*.xls*")
     ' Loop
     Do While strFile <> ""
         ' Open workbook
         Set wbk = Workbooks.Open(Filename:=strFolder & strFile)
         ' Loop through sheets except first one
        ' For i = 2 To wbk.Worksheets.Count
            ' With wbk.Worksheets(i)
                 ' Append " Old" to sheet name
             '    .Name = .Name & " Old"
             'End With
         'Next i
         Application.DisplayAlerts = False
         If wbk.Worksheets.Count > 1 Then
         
         wbk.Worksheets(1).Delete
         End If
         
         Application.DisplayAlerts = True
           ' wbk.Close True
         ' Close and save workbook
         wbk.Close SaveChanges:=True
         ' Get next file name
         strFile = Dir
     Loop
ExitHandler:
     ' Turn on screen updating and event handling
     Application.EnableEvents = True
     Application.ScreenUpdating = True
     Exit Sub
ErrHandler:
     MsgBox Err.Description, vbExclamation
     Resume ExitHandler
 End Sub