Recent content by tweek312

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

I have this code which I use for selecting key sheets in a workbook and have adapted many functions off of it but for some reason I cannot get this one specific (simple) function to work. I need to autoFit the entire contents of each selected sheet. Currently I am using the below code. It...

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...

I have this routine which basically does some simple formatting by copying and pasting a row and then AutoFitting the contents of the selected sheets. It keeps crashing with an "Object Defined Error" 1004. My fear is that it does not like the selecting of a cell when more than one sheet is...

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!