excel vba for hyperlinks

Original Message

Name: deadpet
Date: February 13, 2008 at 14:06:19 Pacific
Subject: excel vba for hyperlinks
OS: xp
CPU/Ram: n
Model/Manufacturer: n

Comment:

I am trying to set up an excel sheet which sets up client databases. Each sheet is a client so I want a main sheet to set each one up and I click and jump to their sheet.
The followng text fails me.....HELP?
Sub Macro1()
Dim asa As String
asa = InputBox("Enter name:")
Sheets.Add.Name = asa
abba = Sheets("main").Cells(1, 9)
Sheets(asa).Move Before:=Sheets(3)
Sheets("main").Select
Cells(abba, 1).Select
Dim hiu As String
hiu = abba & "!A1"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
hiu, TextToDisplay:=asa
Sheets("main").Cells(1, 9) = Sheets("main").Cells(1, 9) + 1
End Sub

Report Offensive Message For Removal

Response Number 1

Name: Razor2.3
Date: February 13, 2008 at 20:35:27 Pacific
Subject: excel vba for hyperlinks

Reply: (edit)

abba = Sheets("main").Cells(1, 9) <-- I have no idea what you're attempting.
Cells(abba, 1).Select <-- Ditto.

Report Offensive Follow Up For Removal

Response Number 2

Name: deadpet
Date: February 14, 2008 at 03:16:48 Pacific
Subject: excel vba for hyperlinks

Reply: (edit)

the first line is getting the row number for next new client and the other selects it to put in hyperlink...

Report Offensive Follow Up For Removal


excel vba macro assistance Excel VBA Problem saving file Excel VBA syntax problem VBA Shell Function Excel VBA - printing sequential #	Creating a DataBase using Excel VBA Locking Buttons in Excel VBA Excel VBA - batch file in Dos - She Excel Vba Code Excel macro