View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
[email protected] ghamilton@labattfood.com is offline
external usenet poster
 
Posts: 9
Default DIALOG BOX DEFAULT LABELS

How can I modify this macro to default to the last label typed for
this input box? I only need to be able to override it, so I don't
need to re type it every time I run it.

Sub header()

Period = InputBox("What Period?")
DivName = InputBox("What Division?")
title1 = InputBox("CENTER TITLE ROW 1")
title2 = InputBox("CENTER TITLE ROW 2")


With ActiveSheet.PageSetup
.LeftHeader = Period & Chr(10) & DivName
.CenterHeader = title1 & Chr(10) & title2
.RightHeader = Date
.RightFooter = page

End With


End Sub


Thanks,