Sub FindMeThisCell()
Worksheets("Sheet2").Activate
Range("A2").Activate
X = Range("A2")
MsgBox X
ActiveCell.Font.Bold = True
End Sub
This code does next to nothing. It's worse, actually - it does next to nothing and it doesn't even do what it says it does, namely, finding a cell. There is no searching involved here, to be honest. You should never, ever code like this, and if you do, you should find absolutely no enjoyment in using it. You should never smile at what it does, nor cause it to execute multiple times in a row because you think it's actually kind of cute.
Let me explain exactly how bad this really is. This snippet of code is a subroutine. A subroutine is a bit of code that you stick in your spreadsheet's module (accessory code) that you can call up whenever you feel like it - when today's date is after May 5th, when you click a button, when cell B1 turns green, whatever. Subroutine (abbreviated "Sub") FindMeThisCell has a name - FindMeThisCell - that I can use to identify it later. The parentheses at the end just tell you that you don't need any information to run this code. *
So much for Sub, End Sub (does what you think it does), and FindMeThisCell(). The next two lines
Sub FindMeThisCell()
Worksheets("Sheet2").Activate
Range("A2").Activate
X = Range("A2")
MsgBox X
ActiveCell.Font.Bold = True
End Sub
pick out a particular cell in my file and turn it on - "activate" it. This is sort of like playing Pokemon. Go Sheet2! Activate! Go Range("A2")! Now cell A2 in Sheet 2 is ready and raring to go.
Now I pick a variable - the quintessential "x", why not -
Sub FindMeThisCell()
Worksheets("Sheet2").Activate
Range("A2").Activate
X = Range("A2")
MsgBox X
ActiveCell.Font.Bold = True
End Sub
and read the contents of A2 to it. "X" dutifully memorizes this information. Next I choose a Message Box (or "MsgBox" - can't ever spare the vowels, those boxes) and tell it to recite whatever "X" says.
Sub FindMeThisCell()
Worksheets("Sheet2").Activate
Range("A2").Activate
X = Range("A2")
MsgBox X
ActiveCell.Font.Bold = True
End Sub
The next part is the worst bit. It takes the active cell, A2, and makes it bold. For absolutely no reason. No one benefits from this. The world is not better for it. I'm not any happier about it. It's worthless, and here I am wasting another whole paragraph about it. Enough!
Sub FindMeThisCell()
Worksheets("Sheet2").Activate
Range("A2").Activate
X = Range("A2")
MsgBox X
ActiveCell.Font.Bold = True
End Sub
Now I go back to my original spreadsheet. I show the Developer tab (Office>Options>check "show Developer tab in ribbon"). In the Forms toolbar, I click on the rectangular icon
to make a button. I title this button "Find me data!" and link it to the FindMeThisCell macro.
And lastly, abashedly, I go to cell A2 and type in "Found me!"
to make a button. I title this button "Find me data!" and link it to the FindMeThisCell macro.
And lastly, abashedly, I go to cell A2 and type in "Found me!"
Then I click the button. And god help me, I smile at it.
Click. Found me! Click. Found me! Click. Found me!
Isn't it awful?