View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
carlab68 carlab68 is offline
external usenet poster
 
Posts: 1
Default Newbie help with cell reference


Hi all,

I am literally creating my first macro in Excel 2002 and ran into a
problem already. Course it's not as complicated as the others I was
viewing; so even though I'm risking looking very dumb, at least it
should be easy.

I have a client that created a macro to type a word or words in a cell
(ex. A1), then go to the next cell (B1) and type another word and keep
going til the last cell (H1). However she wants to be able to do this
macro on any row (ex. A3 - H3)

I viewed the macro and it specifically references the cells. So I
removed that reference in the visual basic window, but then the macro
typed each word over top of each other in the same cell. I'm so green,
that I don't even know the command to go to the next cell and didn't
see it referenced in help. Any ideas? BTW I'm pasting the actual macro
below in case I didn't type that well.

Thanks,
Carla

Sub TitleBar()
'
' TitleBar Macro
' Budget Title Bar
'
' Keyboard Shortcut: Ctrl+t
'
Range("A3:H3").Select
Selection.Font.Underline = xlUnderlineStyleSingle
Selection.Font.Bold = True
Range("A3").Select
ActiveCell.FormulaR1C1 = "Project"
Range("B3").Select
ActiveCell.FormulaR1C1 = "Task"
Range("C3").Select
ActiveCell.FormulaR1C1 = "Expnd Type"
Range("D3").Select
ActiveCell.FormulaR1C1 = "Item Date"
Range("E3").Select
ActiveCell.FormulaR1C1 = "Supplier"
Range("F3").Select
ActiveCell.FormulaR1C1 = "Burden Cost"
Range("G3").Select
ActiveCell.FormulaR1C1 = "Comment"
Range("H3").Select
ActiveCell.FormulaR1C1 = "Expnd Org"
Range("I3").Select
End Sub


---
~~ Message posted from http://www.ExcelForum.com/