Search This Blog

Saturday, July 26, 2025

Booker T talks about Hulk Hogan

My Divorce at 40 Wasn't the End of the World - Business Insider

Raw Superstars & The Fans Want To See The Taker-Roonie Part 2

Raw Superstars & The Fans Want To See The Taker-Roonie Part 1

Raw Superstars & The Fans Want To See The Taker-Roonie Part 3

New Billy Joel documentary

Nice Try... NOT!!

My cell phone

Steven Tyler on Two and a Half Men

The Failure of WCW's New Blood Storyline

Mom RAGES After Law Protects Criminal Who Attacked Her Daughter

Inspirational scenes from all the Rocky movies

The last 10 years Perfectly Summarized

Wednesday, July 23, 2025

RIP Lord of Darkness

Ozzy Osbourne passed away on Tuesday, July 22, 2025.
Alex and I had to decide if we wanted to see Slayer or Ozzy at Chicago Open Air 2017 - wow! That was 8 years ago! We chose Ozzy.
I'll continue to say that his autobiography is one of the best books. It tore away the hype that followed him and told me about the existence of John Michael Osbourne. I wrote a book review of it.
In the clips that have been floating around from The Osbournes, I'd forgotten the one where Sharon wanted to have bubbles shoot up from the stage... He liked to use inappropriate words that start with F...
https://youtu.be/ scwyXedIVEg - Ozzy vs Bubbles | The Osbournes TV

RIP Ozzy

Thursday, July 17, 2025

Renaming MP3s with Excel

In Google.com, I entered the following: "rename mp3 files excel macro" and this is what was generated.
 

To rename MP3 files using an Excel macro, you can create a macro that reads old and new filenames from two columns in Excel and then uses the Name statement in VBA to rename the files. The macro will iterate through each row in your Excel sheet, taking the old filename from one column and the new filename from another, and then rename the corresponding file in the specified folder. [1, 2]

Sub RenameMP3Files()

Dim Source As Range
Dim OldFile As String
Dim NewFile As String
Dim FolderPath As String
Dim Row As Long

' Set the folder path where the MP3 files are located
FolderPath = "C:\Path\To\Your\MP3\Folder\" ' <<--- CHANGE THIS!

' Define the range in Excel containing the old and new filenames
Set Source = Cells(1, 1).CurrentRegion ' Assumes data starts at A1

' Loop through each row in the specified range
For Row = 1 To Source.Rows.Count
' Get the old and new filenames from the Excel sheet
OldFile = FolderPath & Source.Cells(Row, 1).Value ' Assumes old filenames are in column A
NewFile = FolderPath & Source.Cells(Row, 2).Value ' Assumes new filenames are in column B

' Check if the old file exists
If Dir(OldFile) <> "" Then
' Rename the file using the VBA Name statement
Name OldFile As NewFile
Else
' Handle the case where the old file doesn't exist
MsgBox "File not found: " & OldFile
End If

Next Row

MsgBox "File renaming process completed."

End Sub

Explanation:
  1. Sub RenameMP3Files(): Defines the start of the macro.
  2. FolderPath = "C:\Path\To\Your\MP3\Folder\": Important: Replace this with the actual path to the folder containing your MP3 files. Make sure the path is enclosed in quotes.
  3. Set Source = Cells(1, 1).CurrentRegion: Defines the range of cells in your Excel sheet that contain the data for renaming. It assumes your data starts at cell A1 and extends to include all adjacent cells.
  4. For Row = 1 To Source.Rows.Count: Loops through each row in the defined range.
  5. OldFile = FolderPath & Source.Cells(Row, 1).Value: Constructs the full path for the old filename, retrieving the value from the first column (A) of the current row.
  6. NewFile = FolderPath & Source.Cells(Row, 2).Value: Constructs the full path for the new filename, retrieving the value from the second column (B) of the current row.
  7. If Dir(OldFile) &lt;&gt; "" Then: Checks if the old file actually exists in the specified folder.
  8. Name OldFile As NewFile: Renames the file using the Name statement in VBA. This is the core renaming command.
  9. Else: Handles the case where the old file does not exist.
  10. MsgBox "File not found: " & OldFile: Displays a message box indicating the file was not found.
  11. Next Row: Moves to the next row in the loop.
  12. MsgBox "File renaming process completed.": Displays a message box when the macro finishes processing all files. [1, 3, 4, 5, 6, 7, 8]
How to use the macro:
  1. Open your Excel workbook.
  2. Open the VBA editor: Press Alt + F11.
  3. Insert a new module: In the VBA editor, go to Insert &gt; Module.
  4. Paste the code: Paste the code into the module.
  5. Modify the FolderPath: Change the FolderPath variable to point to the correct directory on your computer.
  6. Prepare your Excel data: In your Excel sheet, make sure you have two columns: one with the old filenames and another with the new filenames.
  7. Run the macro: Go back to your Excel sheet, and then in the VBA editor, press F5 or click the "Run" button (the green triangle) to execute the macro. [3, 9, 10, 11]
Important considerations:
  • File Paths: Ensure the file paths in your Excel sheet and the FolderPath variable are correct and that the files exist at those locations.

AI responses may include mistakes.



Thursday, July 10, 2025

Bouncing DVD

CNN Leftist Has UNHINGED MELTDOWN Over Trump Deportations

Every Deal Mephisto Made in the MCU

Calvin Rodgers - "You No Be Man" by Halal Afrika

OVERACHIEVERS - Better than Expected


https://youtu.be/ mdTguw0ncYg - OVERACHIEVERS - Better than Expected

New-to-Me-Pro Wrestling Youtube Channel


https://youtube.com/@cmpodcasts?si=-pX6jKKr8zbaFMCE - CageCast X Straight Wrestling

Chris Jericho vs. Rey Mysterio | Intercontinental Title vs. Mask Match: The Bash 2009


https://youtu.be/ 0A0MgBvHFhM - FULL MATCH: Chris Jericho vs. Rey Mysterio | Intercontinental Title vs. Mask Match: The Bash 2009

Metallica : Opening Jams : Poor Touring Me Tour 1996 1997


https://youtu.be/ SSBmjAbaGyU - Metallica : Opening Jams : Poor Touring Me Tour 1996 1997 - Part 01

https://youtu.be/ o-jBwQmmzEs - Metallica : Opening Jams : Poor Touring Me Tour 1996 1997 - Part 02

Wednesday, July 9, 2025

Pantera Tour

Roland VAD507 V-Drums Acoustic Design Drum Kit Demo - InSync

SUPERMAN - Non-Spoiler Review - So Much More than a Comic Book Movie


https://youtu.be/ 1keNeBnyofc - SUPERMAN - Non-Spoiler Review - So Much More than a Comic Book Movie

Police Academy. The Downfall of a Franchise

Why I Loved SUPERMAN (No Spoiler REVIEW

Superman - Movie Review

Jurassic World Rebirth - Movie Review

SUPERMAN REVIEW 2025: Is It Good?! No Spoilers

Rick Makes a Trade - The Walking Dead

10 Unforgettable Moments from Black Sabbath's "Back to the Beginning" Show

Moments from the 2016 Election Cycle

NFL Announcers Roasting Players Funny


https://youtu.be/ kHskSMj9kqs - NFL Announcers Roasting Players Funny