Search results for query: *

Nevermind the code works fine... Im just an idiot. :( Thanks PHV! =D

Help.. Anyone?... :(

Doesn't seem to work... what exactly are you suggesting? Tx - Tweek

...somthing stupid like a missing comma or declaration. Argh..! Thx - Tw33k Sub autoFit() s = "" For Each ws In Worksheets If ws.Name Like "!*" Then s = s & Chr(1) & ws.Name Next ws Sheets(Split(Mid(s, 2), Chr(1))).Select Sheets("!Crest National").Activate Cells.Select...

Sorry... Typo. Should have been .Select; must have goofed it when I added the '***CRASHES HERE*** But none the less.. it still crashes... :( Sub Fmt_Exclm() Sheets("IP Runner Log").Select Rows("2:2").Select 'selects "to be" format row Selection.Copy 'copies format row SelShts...

...Rows("2:2").Select 'selects "to be" format row Selection.Copy 'copies format row SelShts 'selects all ! sheets Range("A1").'***CRASHES HERE*** ActiveSheet.Paste 'pastes format row Cells.Select 'selects all cells in sheet Selection.Columns.AutoFit 'autofits all columns in sheets...

Works like a charm! Thanks! -tW33k

Based on: thread68-483892 I need this code to select as an array. Currently it is selecting the first and last sheet with "!*". Ive tried fudging with it but I cant find anything that works for me. Thanks, tw33k For Each ws In Worksheets If ws.Name Like "!*" Then ws.Select Next ws

Thanks Zathras! Ur Code works great! :) I modified it just a bit: Sub AddSheets() Dim oNameList As Range Dim c As Range If Range("O6") = "" Then Set oNameList = Range("O5", Range("O5")) Else Set oNameList = Range("O5", Range("O5").End(xlDown)) End If For Each c In oNameList...

How do I do that?

Trying to write this code... Its supposed to create sheets based on the contents of the cell O5 and keep going until the blank cell. Please help! Whats wrong with my code? Thanks, tw33k Sub mk_shts() Dim ws As Worksheet 'Create a worksheet object Set ws = Sheets.Add 'set worksheet Object...

I worked it out in VBA... which i knew i could do. I would still really like a Non-VBA solution but for now, this wanky little piece I wrote works for me. Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Range("L3").Select 'select the column you want Do Until...

Sorry.. should have elaborated. I used many variations of the below formula. =HYPERLINK(K9,"Click Here to Email") K9 Would be where the email address is. As you well know... this did not work; returns error "The address of this site is not valid. Check the address and try again." I tried...

I need a hyperlink function that Excel does not seem to support. The concept seems simple but execution has proven much more difficult than anticipated. Using this fairly simple lookup formula the value returned needs to be in the form of a hyperlink. Formula:=IF(ISERROR(INDEX(Sites!A$1:B$23...

Schweet! Thanks Dood!

I would like to create a macro which creates sheets based on information in a range of cells. The range is static in position however its length changes often. The contents is simple text (no formulas) and needs to have one sheet for each item in the range. Example: AGUIRRK ARMSTEA BARRONR...

I use no pivot tables in my sheet. Its a simple data entry sheet. tW33k

Now now children...

Rgr Tht. Ya learn somthin' new everyday.

So in short... Shift is used for selecting a single range of sheets and Control is used for selecting multiple non-successive sheets. =D