VBA Debug: Workbook Open Rnage....Activate

gheyman

Well-known Member
Joined
Nov 14, 2005
Messages
1,733
Office Version
2016
Platform
Windows
IT doesn't like
Sheet1.Range("C16").Activate


Code:
Private Sub Workbook_Open()
    Sheet1.Range("C16").Value = Environ("Username")
    Sheet1.Range("C17").Value = Now
        Sheet1.Range("C21").NumberFormat = "m/d/yyyy h:mm"
    Sheet1.Range("C16").Activate
    
End Sub

[Code/]
[Code\]

Thnaks
 
Last edited:

Some videos you may like

Excel Facts

Whats the difference between CONCAT and CONCATENATE?
The newer CONCAT function can reference a range of cells. =CONCATENATE(A1,A2,A3,A4,A5) becomes =CONCAT(A1:A5)

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
44,602
Office Version
365
Platform
Windows
You have to activate the sheet, before you activate the cell.
Alternatively use Application.Goto
 

DanteAmor

Well-known Member
Joined
Dec 3, 2018
Messages
12,566
Office Version
2007
Platform
Windows
What do you need to activate the cell for?
Generally it is to get its value and for that you do not need to select the cell you can have this:

Code:
wValue = [COLOR=#333333]Sheet1.Range("C16").Value[/COLOR]
 

Subscribe on YouTube

Watch MrExcel Video

Forum statistics

Threads
1,106,085
Messages
5,509,162
Members
408,711
Latest member
EMexcel

This Week's Hot Topics

  • Turn fraction around
    Hello I need to turn a fraction around, for example I have 1/3 but I need to present as 3/1
  • TIme Clock record reformatting to ???
    Hello All, I'd like some help formatting this (Tbl-A)(Loaded via Power Query) [ATTACH type="full" width="511px" alt="PQdata.png"]22252[/ATTACH]...
  • TextBox Match
    hi, I am having a few issues with my code below, what I need it to do is when they enter a value in textbox8 (QTY) either 1,2 or 3 the 3 textboxes...
  • Using Large function based on Multiple Criteria
    Hello, I can't seem to get a Large formula to work based on two criteria's. I can easily get a oldest value based one value, but I'm struggling...
  • Can you check my code please
    Hi, Im going round in circles with a Compil Error End With Without With Here is the code [CODE=rich] Private Sub...
  • Combining 2 pivot tables into 1 chart
    Hello everyone, My question sounds simple but I do not know the answer. I have 2 pivot tables and 2 charts that go with this. However I want to...
Top